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Acerca de este libro 

Este libro contiene programas sencillos de 
juegos para usar con un microordenador 
ZX81, ZX Spectrum, MSX, VIC 20, 
Commodore 64 o Apple. Y algunos son lo 
suficientemente pequeños como para que 
quepan en la memoria de 1 K de un ZX81. 

La mayoría de los micros usan el 
lenguaje BASIC, pero todos ellos tienen 
sus propias variaciones y dialectos. El 
listado que se da de cada programa en 
este libro corresponde al ZX81, y las líneas 
que tienen que cambiarse para otros 
ordenadores se marcan con un símbolo y 
se imprimen debajo. El hecho de que los 
programas hayan sido hechos para varias 
máquinas implica que no aprovechan todas 
las capacidades de cada una. Puedes 
intentar encontrar modos de hacer que los 
programas sean más cortos y bonitos. 

Para cada juego, se dan ideas para 
ampliar y modificar el programa y en la 
parte final dei libro encontrarás ayudas y 
consejos para escribir tus propios juegos. 
También hallarás una tabla de conversión 
para ayudarte a adaptar los programas de 
revistas y otros libros a tu ordenador y un 
resumen de todos los términos del BASIC 
usados en este libro. 


Tecleado de los programas 


Las líneas que es necesario cambiar para 
otro ordenador que no sea el ZX81, se 
marcan con ¡os siguientes símbolos: 
a VIC 20 y Commodore 64 

★ MSX 

• Apple 

■ ZX Spectrum 

* ZX81 

Cada vez que veas el símbolo de! 
ordenador que estás usando, mira a la 
parte inferior de la hoja y teclea en su 
lugar la línea con el mismo número y con 
el mismo símbolo. 


Recuerda estos puntos 


1. Teclea las líneas tal como están 
impresas, incluyendo todos los signos de 
puntuación y los espacios. 

2. Teclea RETURN o ENTER al final de 
cada línea del listado. 

3. Comprueba cada línea cuando la 
termines. 

4. Asegúrate de que no te olvidas de 
ninguna línea ni confundes una con otra. 
Un trozo de papel o una regla es útil para 
señalar la línea por la que vas. 

5. Mira los signos y asegúrate de que usas 
las líneas correctas para tu ordenador. 

6. Si usas un ZX81 o un ZX Spectrum, 
recuerda que no tienes que teclear las 
instrucciones letra a letra, sino usar las 
teclas especiales existentes para cada 
instrucción. 

Puede resultarte más fácil que alguien 
vaya leyendo el listado mientras lo tecleas. 
No te olvides de explicarle que debe leer 
cada coma, punto, paréntesis y espacio y 
que tiene que diferenciar entre la letra “O” 
y el cero y entre la "1” y el uno. 


Eliminación de errores 


Cuando hayas tecleado el 
programa, mira el manual 
para ver cómo puedes 
conseguir que salga en 
pantalla. (Normalmente 
es la instrucción LIST 
seguida por el número de 
las líneas de la sección 
que quieres ver.) 

Comprueba que has 
tecleado todo 






Jugando con los programas 

Para empezar a jugar, teclea RUN. En 
algunos juegos, las cosas suceden muy 
rápidamente, por lo que tienes que leerte 
las instrucciones antes para saber qué es 
es lo que tienes que hacer. 

Es muy probable que el programa siga 
teniendo algún error y que no funcione o 
funcione mal. A veces el ordenador se 
parará y te dará un error. Para saber qué 


significa puedes mirar el manual. Este 
te puede ayudar a encontrar el error, 
pero no siempre lo hará. Lista el 
programa de nuevo y compáralo con 
el del libro con mucha atención. 

Cuando el programa se termine, el 
ordenador imprimirá una frase del tipo 
“BREAK IN LINE 200”. Para jugar de 
nuevo, teclea RUN. 


Experimenta con los juegos 


A lo largo del libro hay sugerencias para 
modificar y hacer añadidos a los 
programas, pero no tengas miedo de hacer 
otros que se te ocurran. No estropearás el 
ordenador y siempre puedes volver al 
original si lo que has cambiado no 
funciona. 

Probablemente querrás ajustar la 
velocidad de algunos juegos*, 
especialmente cuando ya tengas 
experiencia con ellos. Para ello, se indica 
en la página de cada programa qué línea 
hay que cambiar. 

En los sitios en los que aparece la 
instrucción PRINT, 
puedes cambiar el 
mensaje que hay entre 
las comillas por otro 
cualquiera que tú 
prefieras. También, a 
menos que tengas un 
ZX81 con sólo 1 K de 
memoria, podrás 
añadir más mensajes. 

Para hacerlo, teclea 
un número de línea 

(por ejemplo 105 si quieres ponerlo entre la 
100 y la 110) seguido de PRINT y del 
mensaje entre comillas. 

Si tu ordenador tiene colores y sonido, 
puedes mejorar tu juego añadiéndoselos al 
programa, siguiendo las instrucciones que 
se den en el manual del ordenador. 


correctamente. Es fácil 
confundirse, de modo 
que no te asustes si 
aparece algún error. Mira 
tu manual para ver cómo 
puedes hacer cambios al 
programa una vez que lo 
tecleado. Si no estás 
seguro, siempre puedes 
volver a teclear toda la 
línea. Todos los 
ordenadores sustituyen 
una línea ya existente por 
una nueva con el mismo 
número. 

Aquí te damos una lista de los errores 
que más frecuentemente se suelen 
cometer: 

1. Líneas sin teclear. 

2. Líneas mal numeradas. 

3. Dos líneas seguidas. 

4. Se te puede haber olvidado algún signo 
de puntuación: paréntesis, comas, puntos 
o espacios; sobre todo en líneas 
complicadas y largas. Comprueba 
especialmente que existan tantos 
paréntesis abiertos como cerrados. 

5. Puedes haber tecleado una línea que no 
corresponda a tu ordenador. 

6. Confundir la letra “O” con un cero, o la 
“I” con un uno. 

7. Usar números erróneos. Por ejemplo, 
incluyendo ceros de más. 


un Specrrum o un MSX mira la página 37, donde se te hacen indicaciones. 


* ^ Tienes 



Despegue espacial 

Eres el capitán de una nave espacial y te has estrellado con 
tu nave en un planeta desconocido del que debes salir 
rápidamente en otra nave que has capturado. El ordenador 
de ésta te indica la gravedad del planeta. Tú tienes que 
averiguar la fuerza necesaria para poder despegar. Si la que 
das es muy baja, la nave no despegará, y si es muy alta, el 
mecanismo de seguridad entrará en acción impidiendo que 
se destruya la nave espacial. Si todavía sigues en el planeta 
después de 10 intentos, sus habitantes te capturarán. 





100 IF F>R THEN PRINT “DEMASIADO FUERTE 
1 10 IF F<R THEN PRINT “DEMASIADO FLOJO* 
120 IF F=R THEN GOTO 190 


130 IF COlO THEN PRINT ", INTENTALO DE NUEVO 



140 

150 

160 

170 

180 

190 


NEXT C 

PRINT 

PRINT 

PRINT 

STOP 

PRINT 


HAS FALLADO -• 
TE HAN COGIDO* 

BUEN DESPEGUE* 


Te pide un número. 

Esto empieza un bucle que le 
dice al ordenador que repita la 
siguiente sección 10 veces, 
para darte diez intentos. 

Guarda tu número en F. 

Compara el número en F con 
el número en R, e imprime el 
mensaje adecuado o salta a la 
línea 190. 

Lo imprime si lo has intentado 
— <— menos de diez veces 
y no has hallado la respuesta 
correcta. 

Fin del bucle, Vuelve a la línea 
SO para otro turno. 

Esto lo imprime después de 
diez intentos fallidos. 


Este listado funcionará en un ZX81. 

Para otros ordenadores, haz estos cambios: 

♦ 10 HOME 

*10 PRINT CHRfcí 147) 

15 PRINT ■ INTRODUCE 
17 INPUT Z 

16 Z“RND f “Z 1 

+*♦30 LEÍ G-INT(RND<m20í 
★ *♦40 LEI W*I NT f RND C i ) #40 ) 


Cómo complicar el juego 

Puedes cambiar el programa para que 
te deje menos de 10 intentos. Esto se 
hace alterando el último número de la 
línea 80 y el de la línea 130, (Los dos 
tienen que ser iguales.) 

mira la página 2. 





Rincón de los 
problemas 


Puedes cambiar los límites entre los 
que se encuentran las fuerzas. jA ver 
si averiguas cómo! 


Juegos intergalácticos 

Hay una feroz lucha entre las compañías 
de televisión de todo el mundo para 
conseguir la exclusiva de los Primeros 
Juegos Intergalácticos. Todo depende de 
qué compañía consiga poner primero su 
satélite en la órbita correcta. 

Tú eres el ingeniero encargado de 
lanzar el de la compañía de televisión 
Nuevo Siglo. Las decisiones cruciales 
acerca del ángulo y la velocidad de 
lanzamiento del cohete las tienes que 
tomar tú. ¿Podrás? 
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PRINT 'JUEGOS INTER6ALACT J COS ' 
★*•20 LET H»INT(RND*100+1) 

30 PRINT 'DEBES LANZAR UN SATELITE' 
40 PRINT 'A UNA ALTURA DE '¡H _ 

50 FOR G-l T0 6 ' ' ' ■■ ■ ■■■■ — ■ 


Cómo funciona el programa 


Elige la altura a la que debes 
lanzar tu satélite, la mete en 
H y la imprime. 


60 PRINT •INTRODUCE ANGULO (0“90) 
70 INPUT A 


D 


80 PRINT 'INTRODUCE VELOCIDAD 10-40000)* 
90 INPUT V 



100 LET A=A-ATN(H/3)#I80/3. 14159 


110 LET V=V-3000#S8RIH+i/H> 


120 IF ABS1AK2 AND ABS1VK10Q THEN GOTO 210- 


130 IF A<-2 THEN PRINT 'DEMASIADO INCLINADO 
140 IF A>2 THEN PRINT 'DEMASIADO VERTICAL' 
150 IF V<-100 THEN PRINT 'DEMASIADO LENTO' 
160 IF VM0Q THEN PRINT 'DEMASIADO RAPIDO* 


i 


NEXT I 
PRINT 
PRINT 
STOP 
PRINT 
220 PRINT 
230 STOP 


170 

180 

190 

200 

210 


■HAS FALLADO' 
•ESTAS DESPEDIDO 


□ 


*L0 HAS LOGRADO' 
■NCTV GANA-GRACIAS A 


"J 


Principio de un bucle que te 
permite realizar 8 intentos. 

Te pide un ángulo y lo 
almacena en A. 

Te pide una velocidad y la 
almacena en V. 

Usa H para calcular el 
ángulo correcto y se lo resta 
al que tü has tecleado para 
ver cuánto te has acercado. 

Calcuta la velocidad correcta 
y se la resta a la que has dado, 

Comprueba si 
estuviste lo suficientemente 
cerca como para acertar y, si 
es asi, salta a la 210. 

Imprime el comentario 
apropiado para ayudarte en 
tu próximo intento. 

Vuelve a hacer otro intento. 

imprime esto después de 
8 intentos equivocados. 


Imprime esto si acertaste. 


Este listado funcionará en un ZX8L Para otros 
ordenadores, haz estos cambios: 

{ 15 PRINT * INTRODUCE UN NUMERO POSITIVO* 
17 INPUT 1 
13 Z*RNDí “Zí 

★A #20 LEI H«lNTfRNDÍl) # 100 + 1 ) 
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Ampliando el programa 

Estas tres líneas extras harán que el 
ordenador te dé más o menos punios, 
según la rapidez c ( .,i que hayas 
despegado correctamente. 



227 _ET B-INTÜOOO/GI 
125 PRINT -HAS GANADO UNA 
227 PRINT 'BONIFICACION DE 
* CREDITOS" 


fll 



Rincón de los problemas 

¿Puedes cambiar el programa de modo 
que, si ganas, vuelva a empezar 
automáticamente añadiendo los puntos 
que ganes a todos los que hubieses 
conseguido anteriormente? (Necesitas 
cambiar dos líneas y añadir una,) 

Mira a ver cuánto tiempo puedes 
jugar antes de que la TVNS te despida. 







En algún tugar cerca de ti, en el espacio profundo 
y oscuro, habita Elron, el Malvado. Has 
conseguido desactivar todas sus armas, 
excepto las de corto alcance, y todavía puede 
volver invisible su nave. Tú sabes que está 
en alguna parte del tablero tridimensional 
► que puedes ver en la pantalla de tu 

ordenador (mira la figura de abajo); 
pero, ¿dónde? Tienes cuatro bombas 
espaciales. Cada una puede 
estallar en una casilla que le 
indiques con tres números, 
entre 0 y 9, que te pedirá el 
ordenador. ¿Puedes echar 
al malvado Elron del 
espacio antes de que se 
deslice hacia ti y te 
destruya? 


El malvado 
extraterrestre 








Cómo funciona el 
programa 

Pone el número de casillas 
por cada lado. 

Pone el número de 
intentos. 

La posición de El ron se fija en 
estas líneas, que seleccionan 
3 números, entre 0 y el 
máximo fijado para cada lado. 

Empieza un bucle que te 
dice al ordenador que tiene 
que repetir las siguientes 
líneas G veces. 


Esta sección te pide tres 
números y los almacena en 
XI, VI y DI 

Mira si 
has acertado 
y salta 

a la línea 300, si es así. 

Compara tus intentos 
con la posición de 
Elron e imprime un 
mensaje. 



Final del bucle. Vuelve a 
coger otro tiro. 

Esto lo imprime si ya has 
usado todos tus tiros. 

Esto lo imprime si acertaste. 

Cómo hacer el juego más difícil 

Puedes modificar fácilmente el nivel de 
dificultad cambiando el número de 
casillas. Para hacer esto, cambia el valor 
de S en la línea 20. 

Si incrementas el tamaño, necesitarás 
más bombas para tener más 
posibilidades de destruir a Efron. Hazlo 
cambiando el valor de G en ta línea 30. 






miro lo pe 

Ik 



Golpea los ojos de la oruga 

¡Estás atrapado! En cualquier lugar al que miras, encuentras la fría 
mirada de una oruga espacial que se esconde rápidamente detrás de 
una roca. Se dirige lentamente hacia ti, cercándote y esperando el 
momento propicio para agarrarte con sus antenas pegajosas. 
Afortunadamente, tienes tu pistola de protones. 

Las orugas aparecen en cuatro sitios diferentes de la pantalla, que 
corresponden respectivamente a las teclas 1 a 4. Pulsa la correcta 
mientras los ojos están en la pantalla y las destruirás. Hay diez orugas 

en total. 


Cómo funciona el programa 


10 PRINT 'OJOS DE ORUGA" 
20 LET S-0 ~ 
30 FOR T=1 TP 10 ... -- 


A* 40 CLS 


★a* 50 FOR 1=1 T0 INT(RND*30+2Q) 
60 NEXT I 


0 


**•70 LET R-INTÍRNM4+1» 


Pone la puntuación a cero 
al principio del juego. 

Principio de un bucle que 
te da 10 turnos. 

Borra la pantalla. 

Este bucle espera un 
tiempo variable, 
dependiendo del valor que 
genere RND. 

-Elige un número de 1 a 4 y 
lo guarda en R. 


*▲•80 S0SUB 210+30*R 


GOSUB hace que el ordenador 
salte desde la parte principal 
del programa a una 
< ^subrutina” (en ía página 
siguiente). El RETURN al 
final de la subrutina lo envía 
la parte principal de nuevo. 


90 PRINT "00- 


*▲•100 FOR I«1 T0 20 

a# 


110 LET R*»INKEV* 

120 IF R$<> ,# THEN GOTO 140 
130 NEXT I 

140 IF VALC0 B *R*JOR THEN GOTO 210 
150 LET S=S+i 


Salta a una rutina de entre 
cuatro existentes, según el 
valor de R. Éstas obtienen 
dos números que 
corresponden a una 
posición de la pantalla 
—“A” espacios y “D" 
líneas— y salta de nuevo a 
350 para mover el cursor a 
esta posición. 

Imprime los ojos de la 
oruga en esta posición. 

Hace un bucle para ver si 
estás pulsando una tecla. Si 
lo estás haciendo salta a la 
línea 140 y mira si es la 
correcta, 

i Incrementa la puntuación en 1. 





.^ZSSP*^- *► - ^ • J -*^'" * -ív^ 1 - X-*-- \c - 


220 PRINT "DESTRUISTE MSI VIO ORUGAS" 


hmnuv 

ALA* 
SUBWK 
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Borra la pantalla. 

Envía el cursor a la misma 
posición e imprime estrella. 

Bucle de espera que hace 
que la estrella esté en la 
pantalla el tiempo 
suficiente para que la veas. 

Vuelve para otro turno. 

Imprime La puntuación. 


Subrutinas. 


Cómo cambiar la 
ocidad 


Puedes acelerar el juego 
cambiando el número en 
la línea 100 por uno 
menor. 



Cómo usar más 



parte de la pantalla 


El programa se ha escrito 
para que quepa en la 
pantalla más pequeña 
(que es la delVIC 20). 
Para los demás 
ordenadores, puedes 
incrementar los valores 
de A en las líneas 250, 
280, 310 y 340. Mira el 
manual del tuyo para ver 
su anchura máxima. 






Rincón de los problemas 

¿Puedes cambiar el programa de modo 
que las orugas aparezcan en más de 
cuatro sitios? ¿Puedes añadir más orugas? 


a mira ¡o página 2. 







Fíjate en las comas y en ios 
puntos y comas en las 
líneas 70 y S0. Prueba a 
quitarlos y a cambiarlos 
entre sí a ver qué sucede. 


Alunizaje 

Estás al mando de un módulo lunar encargado de llevar a un equipo de astronautas 
a la Luna. Para poder llegar a salvo, tienes que descender lentamente, pero eso 
consume combustible y no tienes mucho. 

Tu ordenador te dirá la altura y velocidad inicial, así como el combustible 
disponible y después te preguntará cuánto quieres usar. Cuando se lo digas, 
calculará tu nueva posición y velocidad. Un encendido de 5 mantendrá tu velocidad 
constante. Un número mayor, la reducirá. Intenta conseguir una velocidad tan 
próxima a cero como sea posible cuando alunices. 


▲•10 CLS 

20 PRINT 'ALUNIZAJE* 

30 LET T=0 
40 LET H*500 
50 LET V=50 
60 LET F s 120 

70 PRINT 'TIEMPO *;T¡ 'ALTURA 
80 PRINT 'VEL.'IV.'FUEL'SF 


90 IF F=0 THEN BOTO 140 


100 PRINT 'ENCENDIDO? (0-30) 
110 JNPUT E 

120 IF B<0 THEN LET B=0 
130 IF B>30 THEN LET B=30 
140 IF B>F THEN LET B=F 


160 LET F=F-B 

170 IF (Vl+V> /2>*H THEN GOTO 220 


210 GOTO 70 


220 LET V l*V+(5-B)*H/V 

230 IF VI >5 THEN PRINT 'TE ESTRELLASTE-TODOS MUERTOS" 

240 IF V1>1 AND Vl<=5 THEN PRINT '0K- PERO ALGUNOS HERIDOS 
250 IF V1<=1 THEN PRINT 'BUEN ATERRIZAJE.* 

260 STOP 


Este listado funcionará en un ZX81. 

Para otros ordenadores, haz estos cambios: 

• 10 HOME 

▲10 PRINT CHR*( 147) 

1 2 ▲*•■ mira la página 2. 
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Cómo funciona el programa 


Pone los valores iniciales de 
tiempo, altura, velocidad y 


Ampliación del programa 

Si añades las siguientes líneas, verás que se 
imprime una estrella en cada intento. La 
distancia de la estrella al lado izquierdo de la 
pantalla corresponde a tu altura sobre la Luna. 

85 FOR 1*2 TP H/3Q0#ni* 

36 RRIKT * 

B? *OT I 
88 RRINT *** 

Reemplaza nn por el ancho de tu pantalla. 

Cambios que puedes probar 

Intenta cambiar los valores de H, V y F en las 
líneas 40 y 60 y mira qué sucede. 



Rincón de los problemas 

Puedes hacer el juego más sencillo 
incrementando la velocidad máxima permitida 
para un aterrizaje seguro. ¿Cómo cambiarías el 
programa para que hiciese esto? 


gasolina y los imprime 


Si no te queda gasolina, el 
ordenador se va a la parte 
final del programa, 
saltándose la sección que te 
pide el combustible a usar, e 
imprime un comentario de tu 
cercanía a la superficie. 

Lee el número de gasolina 
que quieres usar y 
comprueba si está dentro de 
los límites correctos. 

Calcula tu nueva velocidad, VL 

Calcula tu nuevo nivel de combustible 

Comprueba si la distancia 
recorrida en el último intento 
es mayor o igual que la 
altura sobre la Luna. Si es 
así, has aterrizado. El 
ordenador se va entonces al 
final del programa para ver 
qué tal alunizaje has hecho. 

Calcula tu nueva altura. 

Incrementa el tiempo en 1. 

Pone tu nueva velocidad en V, de 
modo que la imprima en la línea 
80 en tu próximo intento. 

Vuelve al principio del bucle 
para un nuevo intento. 

Calcula tu velocidad al hacer 

contacto y mira qué tal lo 

has hecho. _ 


m 
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Puedes utilizar 
esta rutina de 
barajado siempre 
que quieras mezclar 
algo, — . 


30 LET N»4 


Pone los nombres de los 
monstruos en La matriz. 


Estas líneas barajan los nombres 
de los monstruos. El ordenador 
ejecuta un bucle N veces. Cada 
vez selecciona dos números 
entre 1 y N y cambia entre sí los 
nombres de sus compartimentos. 
T$ es una cadena de 
almacenamiento temporal usada 
durante el cambio. 


Empieza el bucle de 8 turnos. 
Borra la pantalla. 


Elige uno de los monstruos e 
imprime su nombre. 


Los monstruos de Galacticón 


10 RRINT -LOS MONSTRUOS DE GALACTICON" 
★ — * 

20 DIM M»14) ^ 


40 LET M-5 


Crea un sitio para almacenar 
datos (una “matriz’’) con el 
nombre M$, que tiene cuatro 
compartimentos, M$(l) a M$(4), 
para cada monstruo. 


El aterrizaje en Galacticón fue fácil, 
pero nadie te avisó de que aquí se 
encontraban algunos de los 
monstruos más desagradables de 
todo el universo. 

Cuando un monstruo te ataque, 
tendrás que elegir cuál de tus armas 
usar: Una pistola de rayos, un 
bazooka Trypton o una espada 
sónica. ¿Puedes hacer la elección 
correcta? Si es así, podrás vivir lo 
suficiente para conquistar 
Galacticón. 


50 LET Mf ( 1 ) ■ * SULF AC I D0R ’ 
60 LET M* ( 2 ) = " FLAM0ONDAR 1 
70 LET US 1 3 ) = ’ BALN0L0T IN * 
60 LET M* ( 4 ) = * GOLANDOR ’ 

P0 FOR 1=1 TO N — 

★ *•100 LET A=INT (RND#N+i> 
★*•110 LET B=INT<RND*N+1) 

120 LET T*=M*(A> 

130 LET M*(A)=M*<B) 

140 LET M*ÍE)=T* 

150 NEXT I 


160 FOR T=1 T0 8 

*•170 CLS — ■ — 

★a*1B0 LET R=INT(RND#N+Í> 

IP0 RRINT "VIENE UN MONSTRUO..." 
200 RRINT "ES UN "¡M*(R) 


Hace que el número de 
monstruos sea 4. 

Hace que el número de 
personas en tu grupo sea 5, 


210 PRINT “QUE ARMA ? <R f S f T) i 
220 INRUT R* 

★*•■230 LET W»C0DElR*)-54+R 

*240 LET 3#iy>3)-3*ÍU>6) — 

250 IF W=2 THEN GOTO 300 


El ordenador usa los valores 
en R y R$ para elegir un 
número de arma, W, que 
puede ser 1,2 6 3. 

Si W es 2, el ordenador salta 
a la línea 300 para decirte 
que has matado al monstruo. 



260 IF W*3 THEN GOTO 320 
270 PRINT ’h)0 ES UTIL, SE COME A UNO' 

280 PRINT *DE TU GRUPO* 

290 GOTO 360 
300 PRINT *LE MATASTE* 

310 GOTO 380 

320 PRINT "SIN EFECTO* 

★*•330 IF RND>.4 THEN GOTO 380 

340 PRINT "HAS ENFURECIDO AL ' ¡Mt(R) } " V 
350 PRINT *HA MATADO A UNO DE LOS TUYOS* 


360 LET M“M-1 
370 IF M< 1 THEN GOTO 440 


O 


'HAS SOBREVIVIDO 
•LA CONQUISTA DÉ 


GALACTICQN 


O FGR 1 = 1 TO 20 
390 NEXT I 

400 NEXT T 

410 PRINT 
420 PRINT 
430 STOP 

440 PRINT -HABÉIS HUERTO TODOS* 

450 STOP 

Este listado funcionará en un ZX8L 
Para otros ordenadores, haz estos cambios: 


Si W es 3, salta a la 320 
para imprimir “sin efecto”. 
Imprime esto si W no es 2 ó 
3, A continuación, salta a la 
línea 360 para restar 1 
persona al grupo. 

Después de la línea que 
imprime “sin efecto” hay una 
posibilidad aleatoria de que 
el monstruo esté enfadado y 
mate a alguien más. 

Mira si queda alguien con 
vida; si no, salta a la línea 
440 para decírtelo. 

Bucle de espera, para que 
tengas tiempo de leer los 
mensajes 

Va al siguiente turno. 

Imprime esto si sigues 
teniendo hombres al 
terminar todos los turnos. 


A240 LEI W*W + 3*fW>3)+3íHy>é> 

★ a# 330 IF RND í I í 4 THEN GOTO 3B0 
★A# 380 F0R 1=1 T0 300 


.3 








Eres el capitán de un crucero interestelar que, dañado 
en uno de sus motores, ha entrado en un área 
W? prohibida. Los cazas extraterrestres te están atacando y, para 
P empeorar las cosas, están utilizando un extraño dispositivo contra ' ; ^ 

tu radar que hace que dé falsas lecturas. Afortunadamente, 
tu ordenador conoce un código que puedes usar para hallar las ^ 

posiciones correctas de tas naves enemigas. Pero debes ser rápido. 

¡No permanecen en el mismo sitio durante mucho tiempo! 

Tu ordenador imprimirá una letra (la posición falsa del enemigo) y un número 
de código. Debes contar en el alfabeto ese número de letras a partir de la que 
te da (recuerda que la N no existe) y pulsar la letra que obtengas. Por ejemplo, 
para M4 debes teclear una Q y para C2 una E, etc. Al pulsar la letra, 
dispararás automáticamente tu cañón láser, de modo que si era correcta 
obtendrás un acierto. Puedes elegir la dificultad en cada juego. Esta viene 
dada por un número del 1 al 10 y es el máximo número de letras que se puede 
añadir cada vez. En cada juego hay diez cazas. ¡A ver cuántos puedes destruir!. 


a *#* mira la página 2 


I 



VA ' 


A«tO CLS 

*“*20 PRINT 'CAZAS EXTRATERRESTRES 
30 PRIMT 

40 FRINT 'NIVEL (1-10) " 

50 INPUT D 

60 IF D< 1 OR D>10 THEN GOTO 50 



70 LET S=0 


80 FOR 6=1 TO 10 


★a#B90 LET L*=CHR<( INT (RND* ( 26-0) +38) )■ 


★ a# 100 LET N=INT(RND*D+1) 


a® 110 CLS 
120 PRINT 
130 PRINT L* f N 


ú 


140 FOR 1*1 TO 204DH 
i 50 LET If= JNKEVf 
160 IF 1*0 ■“ THEN GOTO 190 
170 NEXT I 


180 GOTO 200 



CARAaERÉS* 
PARA CON 'iOCHR 
LETRAS EM 
MUME POS 


★▲• 190 IF I$=CHRí ÍCODE (L*í +N) THEN LET S=S+I 
200 NEXT G 


■ISf/10 


210 FRINT * ACERTASTE 
220 STOP 

Este listado funcionará en un ZXS1. 


Para otros ordenadores, haz estos cambios: 


#10,110 HOME 

▲ 10 t l 10 PRINT CHRÍU47) 

í 15 PRINT # INTRODUCE UN NUMERO POSITIVO* 

★ j 17 INPUT 2 

lie Z=RND(-Z1 

★ ▲•90 LET L*=CHR*íINTiRNDtl)4(2ó-DH651 ) 

■ 90 LET Lt*CHRt í INT (RNIHH26-D) + 65 J í 
★▲•100 LET N-INT<RWDU )#]>+!} 

★ ▲140 FOR 1*1 TO 2ÜG+D*50 

• 140 FOR I-l TO IQ0 + M5G 

• 145 I**- - 

▲ 150 GET 1$ 

•150 IF PEEKI-1Ó384Í >127 THEN GET I» 

★ ▲•190 IF I**CHR*{ASCíL*Í+N) THEN LET S*S+I 


Cómo funciona el 
programa 


Coge el numero de dificultad 
que le teclees, lo pone en D 
y mira si está dentro de los 
límites correctos. 


Pone la puntuación inicial a 
cero. 

Principio de un bucle que te 
deja diez intentos. 

Selecciona una letra entre la 
A y la que tiene tu número 
de dificultad, contando desde 
el final del alfabeto. 

Selecciona un número entre 
1 y D. 



Imprime la letra y el número. 


Comprueba si estás 
pulsando una tecla y, si es 
así, salta a la línea 1%. 



Si no has pulsado una tecla, 
se va a la línea 200, que lo 
envía a hacer otro intento. 


Examina la 
tecla que has 
pulsado y, si es 
la correcta, te 
da un punto. 









Final del bucle. Empieza otro 
i urno. 


Imprime la puntuación 
después de diez turnos. 






— 

:,r sa 


Cómo cambiar 
la velocidad 


Si el juego es demasiado 
rápido para ti s pon un 
número mayor en la línea 
140 (p* ej,, sustituye 20 por 
200). Puedes hacerlo más 
rápido con un número 
menor. 


Cómo hacer el juego más difícil 


Puedes cambiar el 1 en las lineas 40 y 
50* a 3 por ejemplo, para permitir 
dificultades de 3 o más. 



rC. 




Rincón de los probli 

¿Puedes ajustar la puntuación de modo 
que te dé los mismos puntos que indique 
el código? Es decir, el código 1 da un 
punto, el código 2 da 2 puntos, etc. 








Cinturón de asteroides 

Estás realizando un viaje a través del cinturón de asteroides, y para no 
chocar con ellos, debes destruirlos. La fuerza necesaria para ello 
depende del tamaño de cada uno. 

Los asteroides aparecen en tu pantalla como grupos de estrellas. 
Para destruirlos, debes pulsar la tecla del número correspondiente al 
número de estrellas (por ejemplo, si hay siete estrellas, debes pulsar 
un 7). ¡Prepárate: los asteroides vienen hacia ti, duros y rápidos! 


10 PRINT 'CINTURON DE ASTEROIDES* 


Cómo funciona el programa 


20 LET S*0 


30 FOR 5=1 T0 10 
A» 40 CLS 


Pone la puntuación inicial a 
cero. 

Empieza un bucle que se 
repite diez veces. 



**•50 LET A-lNT<R1Wftl841) 


Elige un número para la 
posición horizontal del 
asteroide en la pantalla. 
Almacena dicho número en A. 




+*•60 LET D*IKT ÍRNDJÜ2+1 ) 


Elige otro número (del 1 al 
12) para la posición vertical, 
y lo pone en D, 


★*•70 LET NMNTf RNM9+1 J 


Se elige un tercer número 
(del 1 al 9) para el número de 


wA 

5 




js 



60 FOR 1=1 
90 PRINT 
100 NEXT I 


T0 


110 FOR 1=1 T0 N 

120 IF IOI AND 104 AND 107 THEN GOTO 150 

130 PRINT 

140 PRINT TABCAH 

150 PRINT i 

160 NEXT I 

170 PRINT 


estrellas del asteroide. 

Mueve el cursor D líneas 
hacía abajo. 


Ejecuta este bucle N 
veces imprimiendo 
una estrella cada vez 
en la posición 
apropiada. 





★*•180 FOR 1=1 T0 10 
*•190 LEÍ 9=VAL í *0* + INKEY*) 
200 IF 900 THEN GOTO 240 
210 NEXT I 


220 PRINT "CHOCASTE CON UN ASTEROIDE 
230 GOTO 290 





Hace un bucle para ver si 
pulsas una tecla y, sí es así, 
salta a la línea 240. 


Imprime esto si te quedas sin 
tiempo. 


Comprueba si el número que 
has pulsado es el mismo que 
N y } si no» salta a la línea 270. 





LO DESTRUISTE 


250 PRINT 


* 


kl 




260 LET S-S+l 


270 IF QíN THEN PRINT "NO SUFICIENTEMENTE FUERTE 
280 IF 8>N THEN PRINT 'DEMASIADO FUERTE* 




*a#290 FOR 1*1 TO 50 
300 NEXT I 


Q 


310 NEXT G 


320 PRINT -ACERTASTE -{Si- DE 10 
330 STOP 


Imprime esto si pulsaste el 
número adecuado. 

Incrementa tu puntuación en 1. 

Compara tu número con N e 
imprime el mensaje 
apropiado. 

Bucle de espera para que los 
mensajes permanezcan en 
pantalla el tiempo suficiente 
para ser leídos. 

Vuelve atrás por otro 
intento. 

Imprime la puntuación 
después de 10 intentos. 







A*##mrra ia página 2, 




Como cambiar 
la velocidad 


La línea ISO controla 
cuánto tiempo tienes 
para pulsar una tecla. 
Cambia el último número 
en esa línea por uno 
inferior para acelerar el 
juego. 


Este listado funcionará en un ZX8L 
Para otros ordenadores, haz estos cambios^ 


fl5 PRINT «INTRODUCE UN NUMERO POSITIVO* 
★ | 17 INPUT Z 
U8 Z-RNDÍ-ZÍ 
#40 HOME 

A 40 PRINT CHR*U47) 

★ A # 5 0- LET A e INT ÍRND íl HfIB+1 ) 

★ A#ÓG LET D=ÍNTÍRNDÍU*I2+Í) 

*A#70 LET N* I NT í RND í i Ht9 + 1 ) 

• 175 0*0 

★ A# 180 POR 1*1 T0 100 

A 190 GET 9 

#190 IF PEEKÍ '1Ó384I >127 THEN GET 0 

★ a#290 FOR 1-1 T0 250 


Rincón de los 
problemas 


Adapta la puntuación de 
modo que para cada 
asteroide obtengas el 
mismo número de puntos 
que estrellas hay en él? 





Viaje al futuro 

Vas en una nave 
espacial que viaja casi 
tan veloz como la luz. 
Curiosamente, el 
tiempo pasa más 
despacio dentro de tu 
nave que fuera, de 
modo que si 
emprendes un largo 
rápido viaje, puedes 
volver a la Tierra 
mucho más allá del 
futuro que lo que 
indique el reloj de 
nave. En este juego, 
ordenador te dice 
cuántos años deben 
pasar en la Tierra 
antes de que vuelvas. 
Tienes que decidir 
la longitud de tu viaje 
(en años-luz) y la 
velocidad de tu nave 
(como una fracción de 
la de la luz). ¡Si vas 
demasiado lejos o 
demasiado despacio, 
morirás de viejo en el 
camino! 


¿•10 CLS 

★ ¿•20 PRINT ‘VIAJE AL FUTURO' 

30 LET T=INT(RND#100+25) 

40 PRINT ‘DESEAS VOLVER '¡T 
50 PRINT 'AGN0S EN EL FUTURO 
60 PRINT 


Cómo funciona el 
grama 


Elige un número entre 25 y 
124, que es el que 
corresponde a los años que 
deben pasar antes de que 
vuelvas, y lo imprime. 


20 

mira la página 2. 


70 PRINT “VELOCIDAD DE LA ÑAUE í0-i) - 
B0 INPUT V 

90 IF V>* *1 DR U<=0 THEN GOTO 70 

100 PRINT -DISTANCIA DEL VIAJE* 

110 INPUT D 

120 LEI T1=D/V 


Te pide la distancia, 

Calcula el tiempo 
transcurrido dentro de la 
nave. 


Te pide la velocidad y 
comprueba que está dentro 
de los límites correctos. 








1 MM* f 

«tl" 

T**r*jh 

©(7 / 



i 30 LET T Z^Tl /S6R f í ) — - Calcula el tiempo 

transcurrido fuera de la nave 
a (es decir, en la Tierra), 

140 PRINT 'TARDASTE " 5 TI 5 * AGNOS" 

150 PRINT "Y LLEGASTE “»T2;“ AGNOS* I - 11 Imprime estos tiempos, 

160 PRINT EN EL FUTURO# — Comprueba si tardaste más 

170 IF Ti >50 THEN GOTO 210 que tu tiempo de vida (50 

años) y salta a la línea 210, sí 


es así. 


180 IF ABS (T-T23 < = 5 THEN PRINT "LLEGASTE A TIEMPO' 
190 IF ABS (T-T2) >5 THEN PRINT # NI SIQUIERA CERCA 1 
200 STOP 

210 PRINT 'HAS HUERTO EN EL CAMINO H 
220 STOP 


Comprueba 
sí acertaste 
con un error 
de 5 años e 
imprime un 
mensaje. 


Este listado funcionará en un ZX8L 

Para otros ordenadores, haz estos cambios: 


• 10 HOME 

A10 PRINT CNR*U47j 

{ 15 PRINT ‘INTRODUCE UN NUMERO POSITIVO 
17 INPUT 1 
18 Z=RNDÍ-ZJ 

+A#30 LET T*INTíRNDÍl>*100+25> 



Rincón de los problemas 

¿Puedes cambiar el programa para 
que haga las siguientes cosas?: 

1) Dar un rango más amplio de años 
que deben pasar antes de volver a la 
Tierra. 

2) Disminuir el error permitido de 5 
años a 2 años. 

3 ) Modificar tu tiempo de vida. 





El valle de la Muerte 

Sólo hay un método de escapar a las fuerzas de los malvados Disectitrones. 
Tendrás que tensar todos tus nervios y guiar tu nave monoplaza Dardo por el 
estrecho desfiladero sin fondo conocido como valle de la Muerte. 

Tu ordenador te pedirá primero la anchura del valle. Intenta primero 15* y, 
después, ve disminuyendo; ocho ya es bastante difícil. Mueve tu nave pulsando Q 
para la izquierda y P para la derecha, e intenta atravesar sano y salvo el valle de 
la Muerte* 

* Si estás usando un V1C 20, usa anchuras de 6 a 10, 



JO PRINT "VALLE DE LA MUERTE - 
20 LET S=0 


30 LET M=200 


40 PRINT ■ANCHO?' 1 
Í.0 INPUT y 
60 LEI W-INTÍM/2) 


Cómo funciona el programa 

Pone el número de avances a 

— cero para empezar el juego* 

_ M es el máximo número de 
avances permitido. 

Te pide una anchura* la 

— divide por 2 y usa INT para 
quitar decimales. 


70 LET L=1Q 
80 LET y=*W 
90 LET R=W 


i 


Lado de 
la pañi a lia 


*~1 


L espacios 


(=10 ¿al 
principio} 


+■ i* 


★a «100 LET D=INT1RND*3-1} 


110 IF L+DC0 0R L+D>20 THEN GOTO 100 


120 LET L=L+D 
130 LET Y»Y-D 
140 LET R=R+D 


+D 


♦ 1 


★▲•■14S SCR0LL 
130 LET N*L 
160 GGSUB 1000 
170 PRINT *3*| 

180 LET N*Y ” 
190 G0SUB 1000 
200 PRINT ■**! 


210 LET 
220 GOSUB 
230 PRINT 


N=R “| 
IB 1000 i- 
IT -I* 


A# 240 LET I*=INKEY* 


250 IF IlO't' THEN GOTO 280' 


260 

270 


LET 

LET 


■Y- 

; R+I 


Q 


L, Y y R son las distancias 
entre los muros y el Dardo. 


V espac ios 


+ * 


R espacios 


(=W Ai al 

principio) principio) 

Selecciona -I, 0 ó +1 y lo 
■ pone en D* 

- Comprueba L+D para que 
las columnas no u se salgan” 
de la pantalla* 

- Cambia los espacios entre 
columnas según el valor de 
D. 


* * 4 - 


D 


+ 1 


+D 

Mueve el cursor L espacios a 
través de la pantalla e 
imprime una 1. (El punto y 
coma evita que el cursor se 
vaya a la linea siguiente*) 

Mueve el cursor Y espacios 
más e imprime *. 

Mueve el cursor otros R 
espacios e imprime otra 1. 

(No hay punto y coma esta 
vez, de modo que el cursor 
baja a la siguiente línea*) 

Mira a ver sí estás pulsando 
una tecla* 

Si la teda pulsada no es Q, 
salta a la 280* 

Sí es Q, Y disminuye 1 y R 
aumenta 1, de modo que la 
estrella se mueve a la izquierda* 


280 IF I*<>"R" THEN SOTO 310 


Comprueba si has pulsado P. 



n 



★•■mira ía 


270 LEI Y 3 
300 LET R* 


310 IF Y < 1 OR R<I THEN GOTO 370 


320 LET S=S^1 


330 IF S<M THEN GOTO IDO 


340 FRINT 'BIEN HECHO - LOGRASTE 
350 FRINT "ATRAVESAR EL VALLE 
360 STOP 

370 PRINT "HAS CHOCADO CON EL HÜRO“ 
3B0 PRINT "Y TE HAS DESINTEGRADO" 

390 STOP 

1000 IF N-ü THEN RETIIRN 
1010 POR 1=1 TG N 
1020 PRINT 1 M 
1030 NEXT I 
1040 RETURN 
Este listado funcionará en un ZX81. 

Para otros ordenadores, haz estos cambios: 
[15 PRINT "INTRODUCE UN NUMERO POSITIVO 
★ I 17 1NPUT Z 
ll0 Z-RNBt-Z) 

★ 70 LET L«4 

★ ★•100 LET D-IITMRND (11*3-1) 

★★•■ 145 

• 235 !*■'" 

★ 240 GET I* 

• 240 IF PEEKÍ-16384) >127 THEN SET I* 


Si es así, la estrella se mueve 
a la derecha incrementando 
Y en 1 y disminuyendo H en 1. 

Mira a ver si has chocado 
con un muro, y, si es así, 
salta a la 370 para decírtelo. 
Incrementa el número de 
avances en uno. 

Vuelve por otro avance si has 
hecho menos de M avances. 

Imprime esto si has hecho M 
avances y no has chocado. 


Subrutina para mover el 
cursor al lugar apropiado 
para imprimir 1 y *. 


Cómo cambiar 
la velocidad 

puedes añadir un bucle de 
espera en las líneas 141 y 
142: 

141 FQR J»i T0 100 

142 NEXT J 

Cambia el número en la línea 
141 para ajustar la velocidad: 
cuanto menor sea el número, 
más rápido será el juego. 


Rincón de los 
problemas 

¿Cómo puedes hacer 
el valle más largo? 






Minas 

espaciales 


Eres el nuevo líder electo de una colonia minera 
en el planeta Astron. Todas las decisiones 
relativas a la venta de mineral a los 
comerciantes intergalácticos, compra de comida 
y venta y compra de minas son hechas por ti. 
¿Puedes mantener a la gente satisfecha y 
sobrevivir 10 años al mando? ¿O acabará la vida 
de la colonia en un desastre bajo tu mandato? 

Cómo funciona el 


★ — ^ 

★a# 10 LET L* INT ÍRND#3+5) 

★*• 20 LEI F*INTíRND#ó0*40í 
★*•30 LET M-INT(RNM5ü*iü)*P 
★*•40 LEI FP»INT(RND*40+B0) 
★*•50 LET CE «I NT í RND#40+SÜ ) 

60 LET C=|¡ 


programa 

Estas líneas deciden el número 
de minas (L), el número de 
gente (P) f la cantidad de dinero 
(M), el precio de la comida (FP) 
y la cantidad de mineral por 
mina al inicio deí juego. 

Pone la cantidad inicial de 
mineral en almacén a cero. 


70 LET 3-1 T 1 Pone el factor de satisfacción a 1, 

80 LET Y=1 ■ ■ ■ Pone el número de años a 1. 


★*•? 0 LET LP=INTíRND#20ÜO*2G0G* 


Selecciona los precios de 
compra y venta de las minas. 


★*•100 LET CP*ímT{RHD*lZ*7) 

*•110 CL3 

120 PRINT "AGN0 “¡Y 
130 PRINT 

140 PRINT “HAY -fRí* PERSONAS EN LA COLONIA" 

150 PRINT “TIENES 'íLí 1 MINAS, Y "íMf* MONEDAS* 

160 PRINT "FACTOR DE SATISFACENOS 
170 PRINT 

180 PRINT 'TUS MINAS PRODUCEN “JCES* TON, CADA UNA 
190 LET C-CEFL 

200 PRINT “MINERAL EN ALMACEN 'íCi“ TONELADAS 1 

210 PRINT “VENDIENDO 1 

220 PRINT 'PRECIO VENTA MINERAL=“ICP 

230 PRINT 'PRECIO VENTA MINA=* í LRi " /MINA" 


Selecciona el precio de venta 
~| del mineral. 


Imprime el estado 
actual de las 
asuntos de ¡a 
colonia. 


240 PRINT "CUANTO MINERAL QUIERES VENDER? 
250 INPUT CS 

260 IF CS<Ü 0R CS>C THEN SOTO 240 


Te pregunta cuánto mineral 
quieres vender, lo pone en CS y 
comprueba que lo tienes. 


270 LET Cs£> CS 


Quita la cantidad vendida del 
almacén. 


280 LET W=M+€3*CP 


290 PRINT “CUANTAS MINAS QUIERES VENDER*" 
300 INPUT LS 

310 IF LS<0 GR LS)L THEN GOTO 290 
320 LET L-L-LS 
330 LEI M=MtLS*LF 


340 PRINT 
350 PRINT 
360 PRINT 


'TIENES * f M ; ■ 


MONEDAS 


3 


Calcula cuál es el valor del 
mineral vendido y to añade al 
dinero que ya tenias. 

Realiza el mismo proceso con la 
venta de minas. 


Imprime el dinero 

que tienes en este momento. 


370 PRINT 'COMPRANDO' 

380 PRINT 'CUANTO GASTAS EN COMIDA ÍAPR0X 100 CADA) 1 
390 INPUT FE 


} 


Te pregunta 

cuánto 

quieres 


gastar en comida y pone Ea cantidad en FB. 


400 IF FB<0 OR FB>M THEN GOTO 380 


410 LET MaM-FB 

24 


Mira a ver si tienes suficiente 
dinero para pagar. 

Ajusta el dinero que te queda, 



Ajusfa el factor de satisfacción 
en función de lo que té gastas 
en comida. 


IF FB/P >120 THEN LET S*S+,1 
IF FB/F<80 THEN LET S=S-.2 


440 PRINT 'CUANTAS MINAS COMPRAS?' 
450 INPUT LB 

460 IF LB< 0 0R LB*LP>M THEN GOTO 440 


Te pregunta cuántas minas 
quieres comprar y mira a ver sí 
te lo puedes permitir. 


470 LEI L=L+LB 


Incrementa el número de minas 


sí es necesario. 


480 LET M=M-tB*LP — — 
490 IF SX.Ó THEN SOTO 660 

★a# 50O IF S > I - í THEN LET CE=CE+INT (RND*20*1 ) 

*A*5 10 IF $«.9 THEN LET CE=CE-INT f RND#20*1 í a 
520 IF P/L< 1 0 THEN GOTO 680 

★a# 530 IF S > 1 . 1 THEN LET P*P+INT CRNDfriO + 1 ) “ 
★a» 540 IF S< p 9 THEN LET P*P- INT ( RNMIOM ) — 


Ajusta tu dinero de nuevo. 

Comprueba el valor del factor 
de satisfacción. Si éste es muy 
bajo, salta a la línea 660 para 
terminar el juego. 

Si S es alto, entonces la 
cantidad producida por mina es 
incrementada. 

Si S es bajo, la cantidad 
producida se reduce. 

Si hay menos de 10 personas 
por mina, el juego se termina. 

Si S es alta, llega más gente. 

Si S es baja, se va gente. 


550 

★a# 560 

570 

580 

590 

600 

610 


IF P<30 THEN GOTO 700 

IF RND> . 01 THEN GOTO 590 

PRINT 'DESPRENDIMIENTO* - . MUCHOS MUERTOS 11 

LET P-INT fP/2) 


IF CEO 50 THEN GOTO 620 
PRINT -MERCADO SATURADO - EL PRECIO CAE 
LET CE-INT í CE/2) 


D 


Si hay menos de 30 personas, 
termina el juego- 

introduce una posibilidad de 
que la mitad de la gente muera. 

Si la cantidad producida por 
mina es muy alta, el precio del 
mineral se divide por 2. 


620 LET Y=Y+i 

630 IF Y < 1 1 THEN GOTO 90 

640 PRINT -SOBREVIVISTE A TU MANDATO**— 

650 STOP 

660 PRINT 'HAY UNA REVUELTA* 

670 STOP 

680 PRINT "HAS SOBRECARGADO A TODOS - 
690 STOP 

700 PRINT *N0 HAY SUFICIENTE GENTE' 

710 STOP 

Este listado funcionará en un ZX8L 
Para otros ordenadores, haz estos cambios: 

5 PRINT "INTRODUCE UN NUMERO POSITIVO* 

7 INPUT Z 
B Z-RND1-Z) 

• I 10 HOME 

AilO PRINT CHR*f 147) 

★a# 10, 20 p 30,40, 50, 90, 100, 500, 510 ? 530, 540 1 5Ó0 
cambia RND a RKB í i I 


Los años se incrementan en uno 
y si es menos que 11* vuelve a 
La línea 90 para otro tumo. 

Imprime esto si el ordenador 
alcanza esta etapa en el décimo 
turno. 



Rincón de los 
problemas 

¿Podrías hacer que el 
ordenador te pregunte si 
quieres jugar otra vez y 
añadir el dinero con que 
has terminado a la 
cantidad inicia! del 
nuevo juego? 


a**b miro fa página 2 
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Rescate espacial 


Debes hacer un viaje urgente, a través del brazo espiral de la galaxia, a un 
planeta en desarrollo que necesita suministros médicos. El viaje supone 
recorrer distancias tan largas que la mayor parte del tiempo estarás en un 
sueño profundo; pero, antes de esto, debes programar la nave para el 
viaje. El ordenador te preguntará cuánta energía quieres proporcionar a 
los motores, al soporte de vida y a los escudos antes de empezar a dormir. 

Cuando te despiertes te dará un informe de lo que ha sucedido durante 
el viaje y, si todo va bien, estarás orbitando alrededor del planeta. En este 
momento, debes utilizar tu energía restante en los cohetes de aterrizaje y 
en Eos escudos, de modo que puedas hacer un buen aterrizaje en el 
planeta. 

Si logras terminar la misión a salvo, tienes una buena posibilidad de 
que te asciendan a almirante espacial. ¡Buena suerte! 


*•10 CLS 

* 20 PRINT 'RESCATE ESPACIAL’ 

30 PRINT 

40 PRINT 'QUIERES INSTRUCCIONES?’ 

50 INPUT I* 

★*•60 IF I*(1)=’S* THEN G0SUB 1000 
★*•70 LET D=INTÍRND#800+101> 

★*•80 LET E=INTÍRND#400+401) 

90 LET T*INT 1D/SQR (E/5) +.5) 

100 PRINT ’EL PLANETA ESTA A "¡Di* UNIDADES" 

110 PRINT. "TIENES "{El* UNIDADES DE ENERGIA* 

120 PRINT "Y UN TIEMPO LIMITE DE * í T f “ DIAS" 

130 PRINT 

140 PRINT 'DISTRIBUCION DE ENERGIA:' 

150 PRINT 'MOTORES?" 

160 INPUT P ■ 

170 PRINT "SOPORTE DE VIDA?" 

180 INPUT L 

190 PRINT "ESCUDOS?" 

200 INPUT S 

210 IF P+L+S>E THEN GOTO 140 
. 220 LET X=E-P-L-S 
230 LET V=INT <SQR(P) ) 

240 LET Tl-INT ÍD/V) 

*•250 CLS 

260 PRINT "TU VELOCIDAD ES "iV 
270 PRINT "LLEGADA EN " ? TI í * DIAS* 

280 PRINT 

★*•290 F0R 1=1 T0 INT(RND*5+Ó) 

★*•300 IF RND> . 5 THEN GOTO 430 
★*•310 GOTO 32Q+INT(RND*4>*30 
26 320 PRINT "TORMENTA DE ASTEROIDES - ESCUDOS ROTOS* 


**•330 LET S=S-20-INT(RND*40+1> 

340 GOTO 430 

330 PRINT “ORDENADOR ROTOOí RETARDO EN REPARACION* 
**•360 LET D*D+INTtRND*20+l) 

370 GOTO 430 

380 PRINT 'PROBLEMA DE MOTOR: DEBEMOS FRENAR* 

390 LET V-V-.5 
400 GOTO 430 

410 PRINT 'RAYOS X - SOPORTE DE VIDA ROTO* 

420 LET L=L-20-INT(RND*40+l) 

**•430 FOR J=i TO 50 

440 NEXT 3 1 

450 NEXT I 

460 LET T1=INT (D/V) 

*•470 CLS 

480 PRINT “LLEGADA EN " í TI í * DIAS* 

490 IF S<0 THEN PRINT "ESCUDOS ROTOS* 

495 IF S<0 THEN PRINT "FUISTE DESTRUIDO* 

. 500 IF L< =0 THEN PRINT * SOPORTE DE VIDA INACTIVO* 

505 IF L<=0 THEN PRINT ’ESTAS MUERTO* 

510 IF V<=0 THEN PRINT *MOTORES NO USABLES" 

520 IF TI >T THEN PRINT 'TARDASTE DEMASIADO" 

530 IF S<0 OR LOO OR V<=0 OR T1>T THEN STOP 
**•540 LET G=INT<RND*10+5> 

550 LET G$=*ALTA" 

560 IF G< 12 THEN LET G*= * MEDIA" 

570 IF G<8 THEN LET G*=*BAJA* 

**•580 LET A=INT (RND+10+5) 

590 LET A*=*ALTA* 

600 IF A< 12 THEN LET Aí= 'MEDIA* 

610 IF A< 8 THEN LET A$="BAJA" 

620 PRINT 

• 630 PRINT "ESTAS EN ORBITA DEL PLANETA* 

640 PRINT "ENERGIA DE SOBRA=*}X 

650 PRINT "GRAVEDAD ES *|G* 

660 PRINT 'ATMOSFERA ES *|A* 

■ ■ 670 PRINT 

680 PRINT "CUANTA ENERGIA A COHETES-FRENO?" 

* 690 INPUT B 

700 PRINT "CUANTA ENERGIA A ESCUDOS?" 

710 INPUT S 

720 IF B+S>X THEN GOTO 630 
*•730 CLS , 

740 IF B>=G*10 THEN GOTO 770 


El programa continúa en la página siguiente. 


Continuación de Rescate espacial 


750 PRINT "HAS HECHO UN NUEVO CRATER" 

760 GOTO 840 > . 

770 IF S>=A*10 THEN GOTO 800 
780 PRINT "HAS CREADO UNA ESTRELLA FUGAZ" 
790 GOTO 840 

800 PRINT "ATERRIZASTE BIEN - ENHORABUENA" 
810 IF X-S-8>25 THEN GOTO 840 
820 PRINT "ES UNA PENA QUE NO TENGAS" 

830 PRINT "ENERGIA PARA ABRIR LA PUERTA" 
840 STOP . . 

1000 PRINT ' 

1010 PRINT "ESTAS A PUNTO BE EMBARCAR* 

1020 PRINT "PARA UNA MISION A UN " 

1030 PRINT "DISTANTE PLANETA QUE NECESITA" 
1040 PRINT "URGENTEMENTE MEDICINAS." 

1050 PRINT "PRIMERO DEBES PREPARAR LA NACE 
1060 PRINT "PARA EL VIAJE DISTRIBUYENDO" 

LA ENERGIA A LOS MOTORES, * 
ESCUDOS Y SOPORTE DE VIDA. " 
1090 PRINT "ENTONCES DORMIRAS DURANTE EL" 
1100 PRINT "VIAJE Y AL DESPERTAR RECIBIRAS 
"UN INFORME DE LO SUCEDIDO. " 

"A CONTINUACION DEBES ATERRIZAR 
1130 PRINT "EN EL PLANETA..." 

1140 PRINT "PULSA UNA TECLA" 

*•1 150 IF INKEY**"" THEN GOTO 1150 . ' * 

*•1 160 CLS 

1170 RETURN ‘ ' ' 


1070 PRINT 
1080 PRINT 


1110 PRINT 
1120 PRINT 


Este listado funcionará en un ZX81. 

Para otros ordenadores, haz estos cambios: 

* 

★▲•cambiar todos los RND a RND ( 1 ) 

'15 PRINT 'INTRODUCE UN NUMERO POSITIVO* 

17 INPUT Z 

18 Z-RNDÍ-Z) ' . 0 . J 

★ •10,250,470,730,1160 HOME 

▲10,250,470,730,1160 PRINT CHRÍ1147) * 

★▲•60 IF LEFTÍ (I<, 1)-"S" THEN GOSUB 1000 

★ ▲•310 ON INTíRND*4+n GOTO 320,350,380,410 

★ ▲•430 FOR J=1 TÜ 500 . 

•1150 6ET I* • ' ’ 

■ *1150 GET I$IIF I*«"" THEN GOTO 1150 
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Ampliación del juego 



Contacto 


Este juego es diferente de los otros del libro, debido a que usa gráficos. 
Como los ordenadores varían tanto en el modo en que sus gráficos 
trabajan, hay un programa separado para cada uno. Lee las instrucciones 
de esta página para aprender a jugar y, entonces, busca en las páginas 
siguientes la versión de tu ordenador. 

Cómo jugar 

El as de los pilotos espaciales, el capitán Flash, está sentado a tu lado para 
realizar la parte final de tu examen de manejo avanzado de naves 
espaciales {parte III). Tu ligero módulo biplaza de aterrizaje se aproxima 
rápidamente a la superficie de la Luna, pero tu velocidad debe ser casi 
cero cuando toques tierra. Controla la fuerza con la tecla A para 
incrementarla y D para reducirla*, vigilando tu progreso en la pantalla 
todo el tiempo. Si usas demasiada fuerza empezarás a subir de nuevo; 
demasiado poca y harás un nuevo cráter en la Luna. ¿Podrás impresionar 
al capitán Flash con tu destreza? 



* Para el VIC y el Commodore 64, tisa la flecha hacia abajo para incrementar la fuerza y la 
flecha hada la derecha para reducirla. 

Contacto: versión para Commodore 64 


30 


20 PRIMT CHRÍ í 147) CHRSÍ5) ; 

25 POKE 53281,0 

30 DEF FNR ( X ) =1 NT ÍRND < 1 ) *X+1 ) 

40 GOSUB 250 

50 GOSUB 300 

60 C— 1 : GGSUB 390 

70 A= 1 : B-F : GGSUB 460 

80 A=2: B-ñBS ( V) : GGSUB 460 

90 ñ"3s B=H : GOSUB 460 

100 A=4: B=T: GOSUB 460 

110 GOSUB 530 

120 Vl=V-T/20+G: F=F— T/10 

130 H1=H“ ÍV+Vl/10) 

1 40 C=0s GÜSUB 390 

150 IF HK10 THEN 200 

160 H=H1 : V=V1 

170 IF H< = 120 THEN 60 

180 GGSUB 590 

190 GÜSUB 220 

200 H=0: C= 1 : GGSUB 390 

210 GÜSUB 650 

220 END 

250 H=120; F= 100 : T=Q 
260 V= 5+ FINIR CIO) 

270 G» (FNR (40) +40) / 100 
280 RETURN 

300 FÜR X=1998 TD 2047 
320 POKE X , 9Q+2*FNR (3) 

330 NEXT 

340 PR I NT " GRAVEDAD 3 11 ; G 
350 PR 1 NT " :KWFUEL : 11 
355 FRINT'LiWMMELs n 
360 PRINT 1 ' !iWWftLTURAs " 

365 PRINT " WfcWFUERZA: 11 
370 RETURN 

390 Y= 1 963-40*1 NT (H/ 5) 


400 IF C=Q THEN 425 
405 POKE Y, 108: POKE Y+ 1,123 
4 1 0 POKE Y +40 , 1 60 : POKE Y+4 1 , 1 60 
415 POKE Y +80 , 75 : POKE Y+8Í,74 
420 GOTO 440 

425 FOR 2=0 TO SO STEP 40 

430 POKE Y+Z , 32: POKE Y+Z+1,32 

435 NEXT 

440 RETURN 

460 FÜR X— 0 TG 9 

470 Y = A* 1 6 0 + X + 1 02 4 

480 IF X < B / 1 0 THEN POKE Y , 102= BOTO 500 

485 IF X-B/10+.5 THEN POKE Y, 92: GOTO 500 

490 POKE Y, 32 

500 NEXT 

510 RETURN 

530 6ET 13 

540 IF THEN T=T+1Ü:IF T>i00 

THEN T=1ÜÜ 

550 IF I4^= " p|" THEN T=T-10s IF 
T< 0 THEN T— O 
560 IF T>F THEN T=F 
570 RETURN 
590 PRINT CHRÍÍ147) 

600 FOR 1=1 TO 20 

610 POKE 1Q63+FNR (5G6) ,42 

620 NEXT 

630 PRINT "PERDIDO EN EL ESPACIO! ! ,É 
640 RETURN 

650 PRINT CHR4-Í 147) "ATERRIZAJE" 

660 PRINT " A LA VELGCIDAD: " ; 

INI < (V+Vl >*5> /10 
670 IF (V+VIXB THEN PRINT 
"TODOS A SALVO" : RETURN 
680 PRINT "TODOS MUERTOS" ; RETURN 




390 Y=8137-22*INT<H/5> 

400 IF C=0 THEN 425 
405 POKE Y, 108! POKE Y+ 1,123 
410 POKE Y +22, 160! POKE Y+23, 160 
415 POKE Y+44,75: POKE Y+45,74 
420 GOTO 440 

425 FOR Z*0 TO 44 STEP 22 

430 POKE Y+Z,32i POKE Y+Z+i,32 

435 NEXT 

440 RETURN 

460 FOR X=0 TO 9 

470 Y=A#B8+X+7724 

4S0 IF X<B/10 THEN POKE Y, 102: GOTO 500 

485 IF X<B/10+, 5 THEN POKE Y, 92: GOTO 500 

490 POKE Y, 32 

500 NEXT 

510 RETURN 

530 GET I* 

540 IF I*=‘]‘ THEN T*T+4: IF T>100 THEN T=100 

550 IF I*-"® 1 THEN T-T-4: IF T<0 THEN T-0 

560 IF T>F THEN T=F 

570 RETURN 

590 PRINT CHR»(147) 

600 FOR 1=1 TO 20 

610 POKE 7679+FNR < 5061 ,42 

620 NEXT 

630 PRINT ‘PERDIDOS EN EL ESPACIO!!' 

640 RETURN 

650 PRINT CHR*t 1471 ‘ATERRIZAJE' 

660 PRINT ‘A LA VELOCIDAD*! 1NT í (V+Vl 145) /10 
670 IF (V+V1K8 THEN PRINT ‘TODOS A SALVO’ : RETURN 
680 PRINT ‘TODOS HUERTOS’! RETURN 


3 es la tecla de cursor hacia abajo. 
gS es la tecla de cursor hacia la derecha, 


Contacto: versión para VIC 20 

20 PRINT CHR$(147)CHR$<5) i 

25 POKE 36879,8 

30 DEF FNR ÍX)=INT (RND ( 1 )*X + 1 ) 

40 C-iDSUB 250 

50 GOSUB 300 

60 C=i: GOSUB 390 

70 A=1 ! B=F ! GOSUB 460 

80 A=2:B=ABStVí: GOSUB 460 

90 A=3I B=H; GOSUB 460 

100 A=4:B=T: GOSUB 460 

110 GOSUB 530 

120 Vl=V-T/20+6:F*F-T/10 

130 H1=H- ( V+Vl ) / 10 

140 C-0¡ GOSUB 530 

150 IF H1<0 THEN 200 

160 H-Hi : V-VJ 1 

170 IF HÍ-100 THEN 60 

ISO GOSUB 590 

190 GOTO 220 

200 H=0:C=i: GOSUB 390 

210 GOSUB 660 

220 END 

250 h=ioo:f=ioo:t=o 
260 V=5+FNR (10) 

270 G=ÍFNR(40) +40) /100 
280 RETURN 

300 FOR X=B178 TO 8185 
320 POKE X,98+2*FNR<3) 

330 NEXT 

340 PRINT * GRAVEDAD =‘ i G 
350 PRINT *J]FUEL:‘ 

355 PRINT ‘ ] 1 5VEL: * 

360 PRINT *J]]ALTURA:‘ 

365 PRINT ‘ ] 1 1FUERZA: * 

370 RETURN 




Nota especial para 
los usuarios del ZX81 

Los caracteres gráficos se muestran 
en el listado usando la siguiente 
convención: un 4 [ J significa que se pulsa 
la tecla GRAPHICS, seguida de las 
letras y números a la vez que la tecla 
SHIFTj hasta que aparece en ese 
momento hay que pulsar la tecla 
GRAPHICS de nuevo, para volver al 
modo normal 


Contacto: versión para ZX81 


20 CLS 

30 LET B$=*C6óó6óó66óóóó6óó6ó66óI * 
40 GOSUB 250 
50 GOSUB 300 
60 LET C“1 
65 GOSUB 390 
70 LET A“1 
75 LET B«F 
77 GOSUB 460 
60 LET A- 2 
65 LET B“ABS(V) 

67 GOSUB 460 
90 LET A* 3 
95 LET B-H 
97 GOSUB 460 
100 LET A“4 
103 LET B*T 
107 GOSUB 460 
110 GOSUB 530 
120 LET V1-V-T/20+G 
125 LET F-F-T/10 
130 LET B1=H-<V+V1)/10 
140 LET 00 
145 GOSUB 390 
130 IF H1<0 THEN GOTO 200 
160 LET B=H1 
165 LET V*V1 

170 IF H< “100 THEN GOTO 60 
180 GOSUB 590 
190 GOTO 220 
200 LET M=0 
205 LET C-l 
207 GOSUB 390 
210 GOSUB 660 
220 STOP 
250 LET H=100 

252 LET F=100 

253 LET T-0 

260 LET V=5+INT ÍRNDÍ10+ 1 ) 

270 LET G=INT (RND#40+40) / 100 
280 RETUR N 

300 PRINT AT 21 , 20J ’CSDADSADASI" 
340 PRINT AT 0, Oi ■GRAVEDAD’ 1 G 
350 PRINT AT 3,0¡ *FUEL: ’ 

355 PRINT AT 7,0! 'VEL: * 

360 PRINT AT 11 , 0; ‘ALTURA: ’ 

365 PRINT AT 15, 0» "FUERZA: * 

370 RETURN 

390 LET Y=U00-HJ/6+l 
400 IF C=0 THEN GOTO 425 
405 PRINT AT V, 24; *[343* 

410 PRINT AT Y+l, 23! ■ [Q WJ* 

415 PRINT AT Y+2, 23 i " LTGGY ] " 

420 GOTO 440 
425 PRINT AT Y, 24!' 1 

430 PRINT AT Y+1,231* 

435 PRINT AT Y+2,23i ’ 

440 RETURN 
460 LET Y*A*4 
470 PRINT AT Y,0¡* 

480 PRINT AT Y,0iB*(T0 B75) 

i3 ¿ 


510 RETURN 

530 LET I*=INK£Y* 

540 IF 16= * A* THEN LET T=T+4 
545 IF T>100 THEN LET T=100 
550 IF I*=*D* THEN LET T=T-4 
355 IF TÍO THEN LET T“0 
560 IF T>F THEN LET T=F 
570 RETURN 
590 CLS 

600 FCR I“I TO 20 

610 PRINT AT INT (RND-Í22) , INT (RNDK-32) J "#* 

620 NEXT I 

630 PRINT AT 10, 10! “PERDIDOS EN EL ESPACIO* 
640 RETURN 
650 CLS 

660 PRINT AT 20, Ot 'ATERRIZAJE A VELOCIDAD "I 
INT f ( V+Vl ) #3) / 10 

670 IF tV+Vi ) <8 THEN PRINT 'A SALVO* 

673 IF (V+Vl) >=8 THEN PRINT 'TODOS MUERTOS* 
680 RETURN 




Contacto: versión para ZX Spectrum 

20 CLS 

30 DEF FNRtX)-INTÍRND*X+l) 

40 GOSUB 250 

50 GOSUB 300 

¿0 LET OO; GOSUB 390 

70 LET A-l: LET B-F: LET C-2#<F<25) 

75 GOSUB 460 

80 LET A*2; LET B*ABS V: LET C*4*<V<0) 


85 GOSUB 460 


90 LET A=3: LET B=H¡ LET C=2*1H<25> 
95 GOSUB 460 

i 100 LET A*4: LET B=T: LET C=0 
105 GOSUB 460 
S 110 GOSUB 530 

120 LET Vl*V“T/20+G¡ LET F=F-T/10 


130 LET HI=H- 1V+V1 ) / 10 


140 LET C=l: GOSUB 390 
150 IF H1<0 THEN GOTO 200 
160 LET H*H1: LET V*V1 
170 IF H<*1Q0 THEN GOTO 60 


180 GOSUB 590 
190 GOTO 220 

200 LET H=0¡ LET OO! GOSUB 390 


210 GOSUB 650 
220 STOP 

250 LET H*100! LET F*100: LET T*0 
260 LET V-3+FNRU0) 

270 LET S*(FNR(40) +40) /100 


420 DRAM -4,20: DRAW -13,10 

430 DRAW -13, -10: DRAW -4,-ZO 

440 RETURN 

460 LET Y*172-A+32 

470 INK C 

480 PLOT O, Y 

490 DRAW B,0 

500 DRAW INVERSE 1.100-B.0 

510 RETURN 

530 LET 1**1 NKE Y* 

540 IF I*-*A* THEN LET T-T+4: 

IF T>100 THEN LET T*100 
550 IF I*=*D' THEN LET T=T-4: 

IF T<0 THEN LET T*0 

560 IF T)F THEN LET T*F 

570 RETURN 
590 CLS 

600 FOR 1*1 TO 20 

610 PRINT AT FNR(21),FNR(31M"*- 

620 NEXT I 

630 PRINT 'PERDIDOS EN EL ESPACIO!!' 

640 RETURN 

650 PRINT AT O, O i 'VELOCIDAD DE CONTACTO "1 
INTf <V+V1)#5) /10’ 

660 IF (V+V1X8 THEN GOTO 680 
670 PRINT 'TODOS MUERTOS': RETURN 
680 PRINT 'TODOS A SALVO '! RETURN 



280 RETURN 
300 PLOT 180,8 
310 FOR X-l TO 15 
320 DRAW 5,FNRI3)-2 
330 NEXT X 

340 PRINT 'GRAVEDAD** i G 
350 PRINT ' "FUEL!"” "VEL:' 

360 PRINT 'ALTURA: FUERZA:' 

370 RETURN 

390 INVERSE C 

400 LET Y=H#1 .3+10 

410 PLOT 200, Y! DRAW 34,0 


Contacto: versión para MSX 

5 PRINT -INTRODUCE UN NUMERO POSITIVO* 

7 INPUT Z 

8 2-RNDí-Zí 
10 CLS 

20 SCREEN 2,1 

30 DEF FNR fXJ - INT ÍRND í 1 Hf-X+l J 
40 A** aw 
50 FOR 1*1 TO 8 
60 READ A 
70 A*=A$+CHRÍÍAJ 
80 NEXT I 
90 SPRIT£ÉÍ1)*A*¡ 

100 GÜSUl 300 
120 GÜSUB 350 

130 PUT SPRITE 1, Í124 f UQ0-H)*1,3Í , 15 
150 GGSUB 530 
160 V1*V-T/2Ü+G:F*F“T/I0 
170 H1*H- í V+Vi ) / 10 
180 IF HKO THFW OOTO ÓÓO 
190 H=HI ¡ V“VI 
200 I F<“100 THEN GOTO 130 
210 GOTO 590 
220 END 

230 DATA 60, 126 , 255 1 255 , 253 ( óó, 66,231 
300 H«100:F«3GQ{T-Q 
310 V“5+FNRí 10} 

320 0“ í FNR í 40) +40) / 100 
330 RETURN 
350 X0*0:Y0=135 
360 FGR X=0 TO 255 STEP 5 
370 XN=X: YN=159“FNR(iO> 

280 UNE ÍXO^OHÍXNjYN) 

390 XO-XN; YO=YN 
400 NEXT X 

410 FOR 1*1 TO 30: PSET í FNR í 255) , FNR (150)1,15 
420 NEXT I 
430 RETURN 
530 It=INKEYS 

540 IF It * * A" THEN T=T+4: IF T>100 THEN T-IOO 
550 IF I**"D' THEN T=T-4:IF T<0 THEN T*0 
560 IF T>F THEN T*F 
570 RETURN 
590 SCREEN 0: CLS 


ÓOG PRINT "PERDIDOS EN EL ESPACIO 

610 END 

660 SCREEN O 

670 CLS 

680 PRINT "ATERRIZAJE A VELOCIDAD 
INTÍ <V + V1>#5) / 10 
690 IF ÍV + VIX8 THEN 710 
700 PRINT "TODOS MUERTOS": END 
710 PRINT "TODOS A SALVO" l END 


Contacto: versión para Apple 



310 FOR X=0 TO 279 STEP 5 
320 HPLOT T0 X, 159-FNR < 10) 

330 NEXT 

335 FOR 1=1 TO 30: HPLOT FNR <279) , FNR i 150 ) 

337 NEXT 

340 VTAB 21: PRINT TABÍ34) J *G=* fG 

350 VTAB 21: PRINT 'FUEL: " : PRINT *VEL: ' 

360 PRINT 'ALTURA:*: PRINT 'FUERZA: *í 

370 RETURN 

390 HCOLOR=C 

400 Y=íl00-H!*1.3 

410 HPLOT 140, Y TO 120.Y+1Q 

420 HPLOT TO 120.Y+20: HPLOT TO 160.Y+20 

430 HPLOT TO 160.Y+10: HPLOT TO 140, Y 

435 HPLOT 155, Y+20 TO 160,Y+25 

437 HPLOT 125, Y+20 TO 1Z0.Y+25 

440 RETURN 

460 VTAB120+A): HTAB 8 

470 INVERSE 

480 PRINT SPCíB/4) | 

490 NORMAL 

500 PRINT SPC<26-B/4H 
510 RETURN 

530 1*="*: IF PEEK (-16384) >27 THEN GET I* 

540 IF I*='A' THEN T=T+4: IF T>100 THEN T“100 

550 IF I*= *S ■ THEN T=T-4í IF T<0 THEN T=0 

560 IF T>F THEN T=F 

570 RETURN 

590 HOME I VTAB 23 

600 PRINT ‘PERDIDO EN EL ESPACIO! ! ’ 

640 RETURN 

660 HOME : VTAB 22 

670 PRINT 'ATERRIZAJE A VELOCIDAD "? 

INT < ( V+Vl ) *5) / 10 
680 IF (V+V1K8 THEN 700 
690 PRINT 'TODOS MUERTOS': RETURN 
700 PRINT *A SALVO': RETURN 


15 HOME 
20 HGR 

30 DEF FNRCX t =INT (RND ( 1 HX + 1 ) 

40 GOSUB 250 

50 GOSUB 300 

60 C=3: GOSUB 390 

70 A=l:B=F: GOSUB 460 

80 A=Z:B=ABS(V>: GOSUB 460 

90 A=3:B=H: GOSUB 460 

I 00 A=4:B=T: GOSUB 460 

110 GOSUB 530 

120 Vl=V-T/20+G:F=F-T/10 

130 Hi=H- ÍV+Vll /10 

140 C=0: GOSUB 390 

150 IF H1<0 THEN 200 

160 H=Hl:V=Vl 

170 IF H< =100 THEN 60 

i 80 GOSUB 590 

190 GOTO 220 

200 H=0:C=3! GOSUB 390 

210 GOSUB 660 

220 END 

250 H=100:F*100:T=Q 

260 V*5*FNRU01 

270 G= (FNR (40) +40) / 100 

280 RETURN 

300 HCOLOR=3 

305 HPLOT 0,155 


Cómo ampliar los programas 


Aquí damos algunas ideas que 
puedes añadir a los programas que 
incluimos en este libro o a tus 
propios programas. En muchos 
casos no podrás añadirlos al ZX81 
con 1 K de memoria, ya que los 
juegos ocupan casi todo el espacio 
disponible. 

Recuerda también que tendrás 
que limitar tus añadidos según los 
números de líneas disponibles en el 
programa o, de otro modo, tendrás 
que renumerarlo todo. Si decides 
renumerarlo, ten cuidado al 
cambiar todas las líneas GOTO y 
GOSUB. 

Cómo hacer que el ordenador 
te diga cómo tienes que jugar 


Puedes añadir una 
sección a cualquier 
programa para que el 
ordenador imprima 
las instrucciones del 
juego. El método más 
fácil para hacer esto 
es añadir algunas líneas, como las que 
damos a continuación, al comienzo del 
programa, y después poner una 
subrutina al final. 




Cómo hacer que el 
ordenador se pare 
y espere 


Si tus instrucciones son demasiado 
largas, debes insertar esta subruíina 
para que el programa se pare en un 
punto determinado, hasta que tú 
pulses una tecla. Esto te permite parar 
las instrucciones cuando van a 
desaparecer por la parte superior de la 
pantalla. Pon una línea GOSUB en el 
sitio que quieres que se pare el 
programa y esta subrutina al final: 


1000 PRINT 'PULSA UNA TECLA PARA CONTINUAR ’f 
¡#1010 IF INKEY9-" THEN GOTO 1010 
• 1010 SET 3* 

A 1010 GET I*:IF I*-” THEN GOTO 1010 
1020 PRINT 
1030 RETURN 


Cómo hacer que el ordenador 
te hable 



10 PRINT 'TITULO DEL JUEGO* 

11 PRINT ' SU I ERES SABER COMO' 

12 PRINT 'SE JUEGA?" 

15 INPUT I* 

■ #17 IP Itdl-'S* THEN GOSUB 1000 
*A»1? IF LEFT*d*, !!«■$' THEN GOSUB 1000 

El programa principal queda así: 

1000 PRINT *L0 QUE TIENES QUE' 

1010 PRINT 'HACER ES 
1999 RETURN 

Puedes añadir tantas sentencias de 
impresión como quieras para las 
instrucciones, pero recuerda poner un 
número y la palabra PRINT al 
comienzo de cada una. Limita la 
longitud de la frase que va entre 
comillas al número de caracteres que 
tu ordenador pueda imprimir en una 
línea. No olvides poner una línea 
RETURN al final o el programa no 
36 funcionará. 


Puedes hacer que el ordenador te 
haga preguntas y reaccione a tus 
respuestas. Por ejemplo, estas líneas 
harán que el ordenador rehúse jugar 
contigo a menos que tu nombre 
comience por J: 

1 PRINT "CUAL ES TU NOMBRE?' 

2 INPUT I* 

3 IF I*(1X>'J* THEN GOTO 1000 

3 IF LEFT*<J* ( 1K>'J' THEN GOTO 1000 
A PRINT 'DE ACUERDO, PUEDES JUGAR' 

5 PRINT 'ESTAS LISTO?' 
b INPUT J* 

■ #7 IF JídlO'S* THEN GOTO 5 
*A#7 IF LEPT*<JS, 11 O'S* THEN GOTO 5 


El programa principal queda así: 


1000 PRINT 'LO SIENTO, ESTE JUEGO ES' 
1010 PRINT 'SOLO PARA LA GENTE' 

1020 PRINT 'CUYOS NOMBRES EMPIEZAN' 
1030 PRINT 'CON J' 


t 


4 






r 


En este otrc ejemplo, te desafía a ser 
: su 'cierre mente valiente como para 
ai reverte a jugar. 

10 PRINT 'JUEGO MUY PELIGROSO' 

.2 »SINT 'ERES LO BASTANTE VALIENTE' 

14 PRIHT 'PARA PEGAR AL MONSTRUO* 

15 FRINT 'DE LOS PELOS VERDES?' 

16 INPLIT I* 

#■1? IF ¡íIDs'S 1 THEN GOTO 20 
**#17 IF LEFT* 1 1* , 1 ) = *S’ THEN GOTO 20 
ie PRINT ‘COBARDICA’ 

19 STOP 

Puedes combinar este listado con la 
subrutina de instrucciones, tomando 
las líneas 11 a 17 de la sección de 
instrucciones que damos en esta 
página y poniéndolas en las líneas 20 a 
26 de este programa. Puedes 
comenzar el programa principal en la 
línea 30 y añadir la subrutina de 
instrucciones al final. 


¿Quieres otra oportunidad? 


En lugar de teclear RUN cada vez que 
quieras jugar de nuevo, puedes hacer 
que el ordenador te pregunte si deseas 
jugar de nuevo. Pon estas líneas al 
final del programa, justo antes de la 
última sentencia STOP: 


1000 PRINT ‘ CUTERES JUGAR OTRA VEZ^ 1 
1010 tNPUT It 


■ #10Z0 IF I*UI=“S" THEN RUN 
★ *#1020 IF LEFTíMt, lt = 'S' THEN RUN 
1030 PRINT 'DE ACUERDO, ADIOS' 
1040 STOP 



Cómo producir efectos 
de sonido 


Cambia los números 
de línea de acuerdo 
con tu programa. 


El VIC 20, el ZX Spectrum, ¡os MSX y 
los Apple II permiten producir sonidos; 
puedes añadir líneas a tus programas 
para producirlos en los lugares 
apropiados. Podrás añadir, por 
ejemplo, una explosión o una pequeña 
melodía que suene si tú eres el 
ganador. Cada ordenador necesita 
diferentes instrucciones para producir 
sonidos, de modo que lo mejor es que 


consultes tu manual. En casos bastará 
añadir una línea al programa en el 
lugar en que tú quieras que suene. En 
otros, necesita diversas líneas y será 
mejor ponerlas como una subrutina. 
En la parte de atrás del manual del 
VIC, encontrarás algunas subrutinas 
muy útiles para hacer sonidos como 
“disparo de láser”, “explosión” y 
“alerta roja”. Pon una línea GOSUB 
donde quieras que aparezca el sonido, 
numera la subrutina y añade un 
RETURN al final de ella. 


— 

Nota para ordenadores MSX 

Debido al especial sistema de generar 
números aleatorios que tienen los 
ordenadores MSX, es necesario que 
todos los programas para estas 
máquinas que utilicen la función 
RND(l) incluyan esta pequeña 
subrutina al principio: 

10 PRINT “INTRODUCE UN NUMERO 
POSITIVO” 

20 1NPUT Z 
30 Z=RND<-Z) 

Debiéndose ejecutar antes que 
cualquier RND(l). Esto hace que el 
generador se inicialice generando una 
secuencia distinta, ya que si no se 
ponen estas líneas, siempre que 
ejecutemos el programa sacará la 
misma secuencia. El número que pedirá 
debe ser cualquiera superior a cero. 


Nota especial para los 
usuarios del Spectrum 

Si tienes un ZX Spectrum, 
encontrarás que algunos de los 
juegos de este libro funcionan 
demasiado rápido. Encontrarás al 
lado del programa un recuadro 
conteniendo las instrucciones para 
cambiar la velocidad. 

Recuerda que para disminuir la 
velocidad del juego tienes que 
utilizar un número más alto. 
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Cómo escribir tus propios programas 






* Puede hacer cálculos. 


* No puede hacer nada si no se lo 
dices tú. 


* Puede tomar decisiones comparando 
los elementos de información de varios 
modos. 


A medida que practiques con los 
juegos de este libro, 
probablemente querrás más y más 
cambios en ellos y, lógicamente, 
pensarás escribir nuevos juegos de 
tu propia cosecha. En estas dos 
páginas encontrarás algunas 
indicaciones sobre cómo hacerlo. 

Antes de que empieces, es una 
buena idea pensar sobre lo que tu 
ordenador puede o no puede hacer. 


* Puede pedirte información. 


* Puede almacenar información. 


* Suponiendo que utilices su lenguaje 
correctamente, puede hacer 
exactamente sólo lo que le digas, 
incluso si es una estupidez. 


* Puede seleccionar números 
aleatoriamente utilizando RND. 


* Puede darte los resultados de sus Recuerda, cuando estés planeando 

cálculos y decisiones y también lo que un juego, no incluir nada que tu 
38 está almacenado en su memoria. ordenador no pueda hacer. 







Cómo planear un juego 


Escritura del programa 


Ames ce que le digas al ordenador en 
qué consiste tu juego, debes saber 
exactamente cómo jugar y cuáles son 
las reglas. El ordenador necesitará un 
conjunto de sencillas instrucciones 
lógicas, de modo que haz funcionar el 
juego en tu cabeza o en un papel 
primero y divídelo en pasos simples. 

A continuación, escribe un esquema 
(en español, no uses BASIC aún) de 
todas las etapas del juego en orden. 

Aquí incluimos un esquema para un 
simple juego de disparar, cómo 
disparar balas de cañón a la nave 
pirata o disparar rayos láser a un 
invasor alienígena, para darte una idea. 

"XT^r“2r^rr~3rii ss 

PLAN 

1) IMPRIMIR TÍTULOS E 
INSTRUCCIONES. 

2) ELEGIR UN OBJETIVO 
PARA ESTE JUEGO. 


3) EMPEZAR UN BUCLE QUE 
LE DA AL JUGADOR N 
INTENTOS. 


4) ESPERAR A QUE EL 
JUGADOR DISPARE. 


5) MIRAR SI EL TIRO DA EN 
EL BLANCO. 


6) IMPRIMIR UN MENSAJE 
DEPENDIENDO DE LA 
PUNTERIA. 


7) VOLVER POR OTRO 
INTENTO, SI NO TUVO 
ÉXITO. 




La próxima etapa es traducir tu 
esquema a BASIC. Cada paso de tu 
esquema puede necesitar varias líneas 
en BASIC. No olvides dejar espacios 
cuando numeres las líneas del 
programa; así podrás volver atrás y 
añadir más si lo necesitas. 

Haz primero un boceto del 
programa en un papel y después 
comienza a comprobar en el 
ordenador. Él descubrirá los errores 
con mayor rapidez y puede darte una 
pista sobre dónde está equivado el 
programa. Evitar o localizar errores en 
un programa es difícil incluso para 
expertos: no esperes que tus 
programas funcionen a la primera. 



Una vez que hayas puesto en 
funcionamiento el meollo del 
programa, puedes añadir marcadores, 
comentarios extras, más objetivos, etc. 
Podrás incorporar secciones de los 
programas de este libro a tus juegos. 

No esperes escribir juegos 
excitantes y originales rápidamente. 
Mantén tus ideas sencillas y prepárate 
para adaptarlas según vayas 
escribiendo el programa. Puedes 
descubrir que has incluido algo en tu 
juego que es fácil de hacer para los 
humanos, pero muy difícil para un 
ordenador. Cuando tengas más 
experiencia, sabrás instintivamente qué 
es io que tu ordenador puede hacer y 
la manera más fácil de escribir el 
programa. 



Sumario del BASIC 


Esta sección te da algunas de las instrucciones frecuentes en BASIC, 
describe qué es lo que le hacen hacer al ordenador y cómo son usadas. 
Muchas de ellas han sido utilizadas en los programas de este libro, de 
modo que puedes volver atrás y comprobar cómo funcionan en un juego; 
pero no todas pueden ser usadas en todos los ordenadores mencionados 
aquí. La tabla de conversión de la página 46 muestra cuáles pueden ser 
utilizadas en su lugar. 



LET le dice al ordenador que reserve una sección de 
su memoria y ponga un valor particular en ella; por 
ejemplo, LET A=6 significa reserva una sección de 
memoria “A” y pon el valor 6 en ella. A “A” se la 
llama “variable” y poner algo en ella se llama “asignar 
un valor a una variable”. 

El nombre de algunas variables está seguido por 
un signo dólar; por ejemplo, AS. Esto significa que 
son “cadenas aifanuméricas”, que pueden contener 
varios caracteres, incluyendo letras, números y 
símbolos. 


PRINT dice al ordenador que muestre cosas en la 
pantalla, y lo puedes utilizar así: 

Un mensaje encerrado entre comillas con PRINT 
delante de él, aparecerá en la pantalla tal como tú lo 
tecleaste. El trozo entre comillas no hace falta que 
esté en BASIC, puede ser lo que quieras. PRINT 
seguido del nombre de una variable, por ejemplo, 
PRINT A o PRINT A$, le dice al ordenador que 
muestre el contenido de la variable en la pantalla. 

PRINT puede también hacer cálculos y mostrar los 
resultados; por ejemplo, PRINT 6*4 hará que el 
ordenador muestre 24. 

Puedes usar PRINT, sin nada más, para dejar una 
línea en blanco. 


RND dice al ordenador que elija un número 
aleatoriamente. Diferentes ordenadores utilizan 
diferentes formas de RND y puedes verlas en la tabla 
de conversión de caracteres de la página 46. En los 
ordenadores Sinclair, RND, sin nada más, produce 
un número entre 0 y 0,99999999. Puedes variar los 
límites del número que quieres que genere, 
multiplicando RND y añadiéndole otro. Por ejemplo, 
RND*20 produce un número entre 0 y 19,99999999, 
mientras que RND*20+1 produce un número entre 1 
y 20,99999999. 

Ver INT para saber cómo producir sólo números 
enteros. 

Ver CHR$ para saber cómo producir letras y otros 
caracteres del teclado aleatoriamente. 





INT es tina abreviatura de infeger (en español, 
enteros), que significa números enteros. Para 
números positivos, le dice al ordenador que ignore 
iodo lo que está a la derecha del punto decimal; por 
ejemplo, INT(20,999) es 20. Para números negativos 
que ignore todo lo que esté a la derecha del punto 
decimal e “incremente” el número a la izquierda por 
uno; por ejemplo, INT(-3,6) es -4. 

El INT es bastante usado con RND, como 
INT(RND*20+1) que le dice al ordenador que quieres 
elegir un número entre 1 y 20. 


CHR$ convierte números en letras. Excepto el 
ZX81, todos los ordenadores de este libro utilizan el 
juego de caracteres ASCII* del teclado en el que 
cada carácter se corresponde a un número fijo. Por 
ejemplo, la letra A tiene el código numérico 65 y 
PRINT CHR$(65) mostrará una A en la pantalla. 

Puedes usar CHR$ con INT y RND para hacer 
que el ordenador seleccione letras aleatoriamente, 
por ejemplo: 

CHR$(lNT(RND*26+65)) 

Esta línea producirá letras aleatoriamente en un ZX 
Spectrum (ver tabla de conversión para otros 
ordenadores). 


FOR es usado para comenzar un “bucle” que hará 
que el ordenador repita una parte del programa un 
número fijo de veces. Debe ir seguido de una 
variable (como, por ejemplo, G, para ver el número 
de intentos que permite el juego) y se debe dar un 
valor inicial y un valor final a la variable. 

El fin del bucle está marcado por una línea NEXT 
(NEXT G, en este ejemplo), que incrementa el valor 
de la variable en 1 cada vez y, entonces, envía al 
ordenador de vuelta a la línea FOR de nuevo. 
Cuando la variable alcanza el valor final, el 
ordenador ignora la línea NEXT y ejecuta la línea 
siguiente. Todos los FOR deben tener un NEXT o se 
producirá un error. 





INPUT reserva un espacio en la memoria del 
ordenador, imprime una interrogación y espera a que 
teclees alguna cosa, que pondrá en ese espacio de 
memoria. No podrá seguir ejecutando el resto del 
programa hasta que pulses RETURN o ENTER. 

Puedes usar variables numéricas o alfanuméricas 
con INPUT, pero si usas una variable numérica el 
ordenador no aceptará que teclees letras. 




* American Standar Code for Information Interchange (Código Americano Estándar para Intercambio 
de Información). 





INKEYS comprueba el teclado para ver si una tecla 
ha sido pulsada y cuál es. No espera a que pulses 
una tecla, como hace el INPUT. Esta instrucción se 
usa normalmente en un bucle en el que el ordenador 
mira el teclado varias veces. Esto es debido a que los 
ordenadores funcionan tan rápido, que no tendrías 
oportunidad de pulsar una tecla en el tiempo que 
tarda el ordenador en hacer una comprobación. 

Si no has pulsado una tecla antes de que el bucle 
finalice, el ordenador seguirá con una cadena que no 
contiene nada (llamada una cadena “nula”). 

Nota: El Apple y el VIC no utilizan INKEY$. 


GET es usada en lugar de 1NKEY$ en el VIC 20. 


GOTO hace que el ordenador salte hacia arriba o 
abajo del programa ignorando las líneas de en medio. 
Debes poner el número de la línea a la que quieres 
saltar después de la instrucción GOTO. 


GOSUB le dice al ordenador que deje el programa 
principal y vaya a la subrutina. GOSUB debe ir 
seguido de! número de la primera línea de una 
subrutina. Al final de la subrutina debes tener una 
línea RETURN. Ésta envía al ordenador de vuelta al 
programa principal, a la línea que sigue 
inmediatamente después a la línea GOSUB. Un 
GOSUB sin un RETURN en un programa dará un 
error. 



IF...THEN dice al ordenador que decida si una 
expresión es verdadera o falsa y que haga diferentes 
cosas, dependiendo de la respuesta. Es usada con 
AND u OR y también con los siguientes signos: 

= igual que 
< menor que 
> mayor que 
<- menor o igual que 
>= mayor o igual que 
O distinto de 

Si el ordenador decide que una expresión es 
verdadera, realiza la acción de la instrucción que 
sigue al THEN. Si decide que es falsa, entonces 
ignora el resto de la línea y va a la siguiente, 
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CLS se usa para borrar cualquier cosa que esté en 
la pantalla, sin borrar o cambiar lo que esté en 
memoria. Es útil para quitar el listado de la pantalla 
a! ejecutar el programa o, en juegos, cuando quieres 
que el jugador reaccione al ver algunas cosas en un 
tiempo limitado. (Nota: El Apple y el VIC no utilizan 
CLS —ver tabla de conversión.) 




HOME es usada por los ordenadores Apple en lugar 
de CLS para limpiar la pantalla. 


ABS ignora los signos más y menos delante de los 
números y toma sus valores “absolutos”. Por 
ejemplo, ABS (-10) es 10 y ABS (+10) es también 10. 


VAL toma el valor numérico de números escritos 
como cadenas alfanuméricas. En efecto, le dice al 
ordenador que ignore el signo dólar y trate a la 
cadena como una variable numérica normal, 
ejemplo, si I$^“60”, entonces VAL(I$) es el 
número 60. 



ASC convierte un carácter en su código ASCII; por 
ejemplo, ASC(“3”) da 51. La expresión entre 
paréntesis debe ser una cadena, por ejemplo, 
ASC(A$) o ASC(“20”). 

Nota: el ZX81 y el ZX Spectrum no utilizan ASC, 
aunque el Spectrum utiliza el código ASCII. 


CODE es usada por el ZX81 y Spectrum en lugar de 
ASC. Al igual que ASC, debe estar seguido por una 
cadena. Recuerda que el ZX81 utiliza números de 
código diferentes de los de los demás ordenadores. 


TAB mueve el cursor por la pantalla al número de 
columna que se le indique. Es usado normalmente 
con PRINT para mostrar algunas cosas en medio de 
la pantalla. El número de espacios que quieres que el 
cursor se mueva se pone entre paréntesis después 
de TAB. El número máximo que puedes usar 
depende de la anchura de la pantalla de tu ordenador. 






SGN dice al ordenador que encuentre el signo de un 
número. Produce -1 para un número negativo, 0 
para cero y +1 para números positivos. Por ejemplo, 
SGN(-30) es -1, SGN(7) es +1 y SGN{0) es 0. 



D1M dice al ordenador el espacio de memoria que 
será necesario para una “matriz” (una columna o una 
cuadrícula). Por ejemplo, DIM X(6) dice al ordenador 
que reserve un área suficientemente grande para 
contener una fila de 6 elementos, llamada X. DIM 
A(8,8) significa un espacio de memoria llamado A y 
lo suficientemente grande como para contener 8 
elementos a lo largo y 8 hacia abajo. El número de 
elementos de datos usado en el programa debe 
corresponder al número de paréntesis después de 
DIM, o producirá un error. 


SQR hace raíces cuadradas de números. Por 
ejemplo, SQR(16) da como resultado 4. 


SIN calcula el seno de un ángulo. En un triángulo 
rectángulo, la longitud del lado opuesto a un ángulo, 
dividida por la longitud de la hipotenusa (el lado 
opuesto al ángulo recto) es el seno del ángulo. 
Cuando utilices SIN en un programa, el ángulo que 
estés usando debe estar medido en radianes, no en 
grados. 


ATN es una abreviatura de arcotangente y es 
importante recordar que da la respuesta en radianes, 
no en grados. Necesitarás usar un libro de 
matemáticas para averiguar en qué consiste, si 
todavía no lo sabes. 


STOP dice al ordenador que no siga ejecutando el 
programa. Todos los ordenadores, excepto el ZX81 y 
el ZX Spectrum pueden utilizar END en su lugar. 


PEEK es un método para averiguar qué hay en un 
área específica de la memoria del ordenador. 
Necesitas usarlo con un número que especifique la 
“dirección” de la memoria. 


POKE es un método especial para poner 
información en la memoria del ordenador usando una 
“dirección” de la memoria. 






Tabla ASCII 


N limero 

Carácter 

Numero 

Carácter 

de código 

ASCII 

de código 

ASCII 

32 

espacio 

62 

> 

33 

r 

* 

63 


34 

33 

64 

@ 

35 

# 

65 

A 

36 

$ 

66 

B 

37 

% 

67 

C 

38 

& 

68 

D 

39 

J 

69 

E 

40 

( 

70 

F 

41 

) 

71 

G 

42 

* 

72 

H 

43 

+ 

73 

1 

44 

? 

74 

J 

45 

- 

75 

K 

46 

• 

76 

L 

47 

i 

77 

M 

48 

0 

78 

N 

49 

1 

79 

O 

50 

2 

80 

P 

51 

3 

81 

Q 

52 

4 

82 

R 

53 

5 

83 

S 

54 

6 

84 

T 

55 

7 

85 

U 

56 

8 

86 

V 

57 

9 

87 

w 

58 

* 

88 

X 

59 

í 

89 

Y 

60 

< 

90 

z 

61 

= 




Tabla de códigos del ZX81 


Número 
de código 

Carácter 
del ZXS1 

Número 
de código 

Carácter 
del ZX81 

ii 


41 

D 

12 

£ 

42 

E 

13 

$ 

43 

F 

14 

* 

44 

G 

15 


45 

H 

16 

( 

46 

I 

17 

) 

47 

J 

18 

> 

48 

K 

19 

< 

49 

L 

20 

— 

50 

M 

21 

+ 

51 

N 

22 

- 

52 

O 

23 

* 

53 

P 

24 

J 

54 

Q 

25 

s 

55 

R 

26 


56 

S 

27 


57 

T 

28 

0 

58 

U 

29 

1 

59 

V 

30 

2 

60 

w 

31 

3 

61 

X 

32 

4 

62 

Y 

33 

5 

63 

z 

34 

6 



35 

7 



36 

8 



37 

9 



38 

A 



39 

B 



40 

C 




Tabla de tamaños de pantalla 



Máximo número de 
caracteres a lo ancho 
(o número de columnas) 

Máximo número de 
líneas de altura 
(o número de líneas) 

VIC 20 

22 

23 

ZX81 

32 

22 

ZX Spectrum 

32 

22 

Apple 

40 

24 

MSX 

40 

24 

Commodore 64 

40 

24 


re n 

3 0 

3 * 

í& se* 
CL o 

CL j£ ~- 

« r> 

n rt 
& o 

Ej i® 

8 m 
re o 

™ r-» 

</¡ E 
£L — ■ 

n. n 

CU o 

8 * 

5 3 

S -g 

a- 

« = 

a 5 

3 

c 

< 

re 

n 

e 

-i 

« 

o 

3 

o 

< 

fB 

*1 

n 

c 

3 

w 

O 

3 

0 

< 

re 

n 

a 

i 

lie 

O 

3 

0 

c 

re 

«i 

n 

c 

-¡ 

ui 

o 

convierte caí 

en códigos 

1 3. 

£ 3 

Q, WV 

° uv 

C re 

S g" 

cr 

o 

■h 

-t 

o 

5T 

X 

y 

9 

tu O 

s 3 

w ou 

0 C 

9 

Di CU 

s s 

n 

2 S « 

*“ SJ pj 

o C 

5E. □ 

° 3 

re c- 

s 1 

^ £L rt 

P g £ 

so ^ ^ 
sg O c 

S 5 ' 3 

sS g, 

3 h 

3 3 



n 3 
c o 

"t 

“t 

3" 

□“ 


Di 

n 

re 

rt 

ff 

re & 

t re 
re n 

-t re 
re t 
^ o 


« n 

n S" 

Cu -t 

o- ÍS 

3 " 

DI ^ 

n 

cu 

3 O 
£j ür 

o 21 

P» 

n 

OI 

o 

5T 

DI 

n 

5‘ 

Di 

£u 

G. 

íu 

r+ 

re 

re 

ía 

IT 

CU 

> 

N 


o 


re 

CL 

Cl 



or 









K¡ CL 

n 

CS 

CL 


Di 

“t 








“ re 

3 

3 

& 

re 

re 

a 

a 

0 

§■ 











rt 

re 



























DI 

CL 














QU 










S 

O 

> 

X 

Q 

X 

s , 

.3 

> 

X 

50 

Z 

H 

n 

X 

X 

z 

—3 

O 

X 

X 

2 

H 

o 

I 

o 

■?? 

as 

2 

X 

m 

CLS 

O 

X 

X 

íe 

z 

X 

Z 

Q 

!_■ 

n ■ 

RND(l) 

MSX 


> 


X 

X 

X 

X 

Q w 



H 

Z 

4- 




■ys 

z 

50 

x 

p 

X 

C¡ 



X 





Z 



íe 


se 




z 




ro 



ro 

« 

ro 

¿s> 

0- ’ 1 

1 — l 

o 




a 














i — k 














N> 














Ch 

+ 














Ch 














en 



















X 

r* 

TI 

X 

X 



tn 

m 

X 

n 

X 

X 

< 



m 

x 

X 

X 

X 

Q- ÍP 

X 

X 

z 

Z 

a 

O 

X 

H 

TJ 

Z 

H 

z 

H 

z 

_} 

3 

cu n 

t> -yi 

H 

X 

3 

50 

* 

S 

2 

r-J 

O 



> 

O 

a 

n 

n 

en -i 


o 

z 

* 


O 

ON 

V 

> 

m 

X 

X 

“ 

X 



X 

j 

*Z 




Z 

50 

X 

X 

X 

Cí 



X 

h- 


v 

Z 


■se 

se 

-.se 

i # 



se 

z 



ro 



[O 

o 

t — 1 

ín 

'v* 

5 

1 



x 

o 

M 














PO 














o 














á 



















50 

i- 


X 

X 

n 

rT' 

V X 

X 

O 

X 

X 



O 

X 

H 

> 

m 

XI 

X 

X 

> 

o- en 

tv> ; 
-vi s 

3 ^ 

m "o 

c 

X 

z 

Z 


O 

> 

m 

2 

TI 

& 

Z 
— J 

O 

X 

z 

H 

0 

1 

z 

o 

X 

n 

ó 

s 

p- n 

^ y 
Cf> ■X 

O — 

£ 

m 

X 

íe 

z 

H 

D 

z 

-1- 

52 

‘a 

“H- 

i— i 


z 

X 

X 

X 


w 

Z m 


X 




Z 

ro 

z 


ro 

se 

oo 

se 

i— * 

<C5 



a 53 

m — 


z 

D 












■H 


i— 












xS 














<£r OC 


cr. 














á 














- 




> 

Z 

> 

§ 

z 

Je 

1—* 

X 

X 

z 

X 

X 

Z 

X 

X 

Z 

X 

X 

2 

n Q 

P- o 

Z 

g 

CLS 

n 

X 

X 

X 

Z 

O 

X 

z 

o 

N 

X 

d 

n 

f 

o 

H 

O 

d 

O 

d 

O 

H 

n 

> 



z 

z 

+ 


(fi 

O 


z 

X 

X 

X 

X 



3 



*o 

z 

te 



X 

■se 

X 

# 

X 

se 

X 

se 




X 

z 



ro 





no 

i—» 





r- ¡ 



n 




' — ' 

~ — ' 

o 





W 

* 














to 














T 



£ 











ffi 



3 

> 

Z 

Üe 

z 

é 

X 

X 

Z 

X 

X 

z 

X 

X 

2 

g 

2 

z 

rT O 

^ o 

^ o 

z 

X 

X 

CLS 

O 

X 

X 

D 

RND 

N 

X 

i—* 

H 

H 

H 

H 

H 

H 

Kl ÍI 1 

"S 


2 : 


00 

H 

O 

O 

O 

2 

n 

X 

2 

O 

X 

O 

X 




z 

H 

+ 


h-* 

z 

to 



X 

íe 

£ 

X 

se 

X 

se 




X 

z 







n- 

M 

i—* 

i—i 




D 







Ü 1 

X 

X 



















a> 














4 a 

CQ 














00 



















Esta guía de referencia muestra algunas de las variaciones del BASIC usadas por las máquinas empleadas en este 
libro. No incluye instrucciones de gráficos, sonido o color, porque éstos varían enormemente de una máquina a otra. 
Fíjate qué, aunque todos los ordenadores tienen PEEK y POKE, no usan el mismo sistema de direcciones de 
memoria, de modo que los números usados con PEEK y POKE deben cambiarse para cada ordenador. 



Claves 

Encontrarás que tus respuestas a 
algunos de los “Rincones de los 
problemas” son diferentes a las 
incluidas aquí. Si funcionan en tu 
ordenador, son válidas; pero 
comprueba si son tan claras y 
sencillas como las de este libro. 


Página 5 

Despegue espacial 

Las líneas 30 y 40 seleccionan los 
números que determinan qué fuerza es 
necesaria. Para incrementar el rango 
de fuerzas posibles, puedes 
incrementar el 20 en la línea 30 o el 40 
en la línea 40, o ambos números. Esto, 
obviamente, hará el juego más difícil. 


Página 7 

Juegos intergaiácticos 

Cambia las líneas 220 y 230 por las 
siguientes: 

222 LET B*B+INTI1000/GJ 
230 SOTO 20 

y añade una nueva línea 15: 

15 LET B-0 


Página 9 

El malvado extraterrestre 

Cambia las líneas 20 y 30 y añade una 
nueva línea 25, como sigue: 

20 PRINT 'DIFICULTAD? (6-30)' 

25 INPUT S 
30 LET G*INT (S/3) 


Aquí damos los cambios para hacer 
que las orugas aparezcan en 5 sitios: 

70 LET R*INT(RND*5+1 ) 

■ #e0 GOSUB 220+20+R 
★ a#B 0 0N R S0SUB 240,260,230,300,320 
240 LET D*5 
245 LET A=1 
250 GOTO 350 
260 LET D-l 
265 LET A-9 
270 GOTO 350 
280 LET D*5 
285 LET A=18 
290 GOTO 350 
300 LET D-10 
305 LET A*7 
310 GOTO 350 
320 LET D-15 
325 LET 4*15 
330 GOTO 350 


Puedes utilizar cualquier 
número que quieras 
para A y D, con tal de 
que quepa en la pantalla. 



Para añadir más orugas, cambia el 10 
en las líneas 30 y 220 por un número 
mayor. (Asegúrate, que utilizas el 
mismo número para las dos líneas.) 

Página 13 
Alunizaje 

Para incrementar la velocidad 
permitida para un aterrizaje seguro, 
necesitas hacer cambios en las líneas 
230, 240 y 250. Puedes usar los 
números que quieras; cuanto más alto 
sea el número, más fácil será el juego. 
En este ejemplo se te permite una 
velocidad de 2 para un buen aterrizaje 
y de 7 para un aterrizaje “pasable”: 

230 IF VI 17 THEN PRINT 'CHOCASTE-TODOS 
MUERTOS* 

240 IF VI >2 AND VI <7 THEN PRINT 'VALE, 
PERO ALGUNOS HERIDOS* 

250 IF Vl<=2 THEN PRINT 'ATERRIZAJE 
PERFECTO* 


Página 11 

Golpea los ojos de la oruga 

Para hacer que las orugas aparezcan 
en más de 4 sitios en la pantalla, tienes 
que poner un número mayor que 4 en 
la mitad de la línea 70, cambiar la línea 
80 y añadir más subrutinas al final del 
programa (una por cada posición 
extra). 


Página 15 

Los monstruos de Galacticón 

Cuatro métodos para hacer que el 
juego sea más difícil; 

1. Comenzar el juego con menos gente 
en el grupo, poniendo un número 
inferior a 5 en la línea 40. 

2. Incrementar el número de 
monstruos, cambiando el 4 en las 
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líneas 20 y 30. Añade los nombres de 
los monstruos extras en las líneas 81 a 
89, usando M$(5) y M$(6). 

3. Reducir el número de intentos 
alterando el 8 en la línea 160. 

4, Incrementar la posibilidad de que el 
monstruo sea dañado, aumentando el 
4 en la línea 330. 

Página 17 

Cazas extraterrestres 

En este juego, N es el número de 
código. Para cambiar la puntuación de 
modo que se ajuste al número de 
código, has de incrementar cada vez la 
puntuación sumándole N en vez de 1. 
Para ello, cambia la línea 190: 

■ *1?0 IF I*-CHft*<CODE<L*)+N) THEN LET 
S»S+N 

★ IF I«CHR*tASCtL*l»N) THEN LET 

S-S+N 

Página 19 

Cinturón de asteroides 

Cambia la línea 260 para que el 
ordenador añada ese número de 
estrellas (asteroides) a tu marcador, en 
lugar de 1. El número de estrellas es 
controlado por el valor elegido por N 
en la línea 70, así que, como en el juego 
anterior, has de añadir N al marcador. 
También debes cambiar la línea 320. 

Z60 LET S=S+N 

320 PRINT "TU PUNTUACION ES "i Si 
* PUNTOS' 

Página 21 
Viaie al futuro 

1. Para incrementar el número de años 
que deben transcurrir antes de que 
vuelvas a la Tierra, cambia el 100 en la 
línea 30 por un número mayor; por 
ejemplo, 150, quedando así: 

30 LET T-INTIRND#! 50+23) 

2. Para incrementar la precisión de 5 a 
2 años, cambia los 5 en las líneas 180 y 
190 por 2, quedando así: 

180 IF A8S<T-T2K=>2 THEN PRINT 
"LLEGASTE A TIEMPO* 

190 IF ABS(T-T2l >2 THEN PRINT 
■NI SI6UIERA CERCA* 


3. La línea 170 contiene el número que 
determina la longitud del tiempo de 
vida. Cambia e! 50 por un número más 
alto para mayor tiempo de vida. 

Página 23 

El valle de la Muerte 

Puedes hacer el valle más largo 
cambiando el número en la línea 30 
por otro mayor que 200, 

Página 25 
Minas espaciales 

Añade estas líneas para hacer que el 
ordenador te pregunte si quieres jugar 
de nuevo: 

645 PRINT 'OTRO JUEGO? ¡TECLEA S/N) * 

646 INPUT A* 

647 IF A*-*S" THEN GOTO 10 

Debes entonces poner una nueva línea 
5 y cambiar la 30 para añadir el dinero 
que tienes al final del juego al dinero 
permitido al principio del nuevo juego: 

5 LET H=Q 

30 LET M*M+1NT(RNE*50+10)+P 

(Asegúrate de usar la versión correcta 
de RND para tu ordenador.) 
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JUEGOS DE ORDENADOR 


Cada uno de estos nuevos libros contiene sencillos programas de 
juegos para utilizar en los ordenadores domésticos de mayor 
difusión. Junto a cada programa hay explicaciones sobre cómo 
funciona, así como problemas y sugerencias para introducir 
cambios que compliquen las aventuras o las hagan más sencillas, 
según los deseos del usuario. Por medio de estos apasionantes 
juegos, incluso los que nunca hayan utilizado un ordenador 
aprenderán con facilidad cómo funciona un programa sencillo, y 
podrán diseñar alguno por sí mismos. Al final de cada libro 
aparecen las claves de conversión para diversos ordenadores, así 
como un glosario de los términos más usuales en BASIC. 
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